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1.C     ABSTRACT 


THIS  OECSYSTEM  KLIO  BASIC  INSTRUCTION  DIAGNOSTIC  IS 
THE  FOURTH  IN  A  SERIES  OF  OECSYSTEM  KLIO  PROCESSOR 
DIAGNOSTICS.  THE  DIAGNOSTIC  TESTS  INDEXED  ADDRESSING, 
INDIRECT  ADDRESSING,  INDEXED-INDIRECT  ADDRESSING  AND 
ARITHMETIC  FLAGS  TESTS.  THE  DIAGNOSTIC  ALSO  PERFORMS 
TESTS  OF  THE  FOLLOWING  INSTRUCTIONS:  EXCH,«OVEM,JFCL, 
ADDUCAI,  JRST^JSP,  AOBJN,  AOBJP,AOS.  SOS,JU«PL,  JUMPE, 
JUMPN,JUMPG,AOJ,SOJ-  ADDM,HRREH,«OVS«,  XOR«,ADDB,HLLOS, 
MOVSS,HRLH,HRRS,HRRZM,SETZB,SETAB,XCT. 

THE  DIAGNOSTIC  TESTS  THE  BASIC  FUNCIIONALITY  OF  THE 
R  AND  MieR0€E8Be. 

2.0  REQUIREMENTS 

2.1  EQUIPMENT 

A  KLIO  WITH  A  MINIMUM  OF  32K  OF  MEMORY. 
CONSOLE  TELETYPE. 

2.2  STORAGE 

THE  PROGRAM  RUNS  WITHIN  128K  OF  MEMORY. 

2.3  PRELIMINARY  PROGRAMS 

CONSOLE  FuA'CTIONS  WORKING  PROPERLY. 
PREVIOUS  PROCESSOR  DIAGNOSTICS. 
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3.0  PROGRAM  PROCEDURES 

3.1  LOADING  PROCEDURE 
LOAD  VIA  APPROPRIATE  LOADING  PROCEDURES. 

3.2  STARTING  PROCEDURE 

STAND-ALONE  STARTING  ADDRESS  IS  40000. 

IF  THE  DIAGNOSTIC  FAILS  TO  START  CORRECTLY  TRY  STARTING  AT  THE 
FIRST  TEST  INSTEAD  OF  AT  THE  BEGINNING  OF  THE  CONTROL  SEQUENCE. 
(SEE  LISTING). 

3.3  OPERATING  PROCEDURE 

3NCE  STARTED  THE  PROGRAM  WILL  CYCLE  CONTINUALLY  UNTIL  STOPPED 
OR  AN  ERROR  OCCURS. 

4.0     ERRORS 

ERRORS  ARE  IN  THE  FORM  OF  HALT  INSTRUCTIONS.  THE  LISTING 
SHOULD  BE  CONSULTED  TO  DElcRMINE  THE  CAUSE  OF  THE  ERROR.  A 
NO  OPERATION  (JUMP)  INSTRUCTION  FOLLOWS  EACH  HALT.  THIS 
MAY  BE  USEFUL  IN  CONSTRUCTING  A  SCOPE  LOOP  TO  CYCLE  ON  THE 
FAILING  INSTRUCTION. 

5.0     ITERATION  COUNTER 

THE  ITERAiiON  COUNT  OF  THE  PROGRAM  CAN  Be  DETERMINED  BY 
EXAMINING  LOCATION  "PASCNT". 

6.0     CYCLE  TIME 

THE  CYCLE  TIME  OF  THE  PROGRAM  IS  IN  THE  MILLISECOND  RANGE  AND 
IS  THEREFORE  SUITABLE  FOR  TAKING  MARGINS,  VIBRATION  TESTS,  ETC. 


I 
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7.0    OPERATIONAL  VARIATIONS 

A.  DIAGNOSTIC  MONITOR 

THE  PROGRAM  IS  USABLE  WITH  THE  DIAGNOSTIC  MONITOR  TO  PROVIDE 
RELIABILITY  TESTS,  ACCEPTANCE  TESTS,  AND  /  OR  TO  PROVIDE  A 
QUICK  METHOD  OF  ISOLATION  OF  A  FAULT  TO  A  PARTICULAR  AREA  OF 
THE  PROCESSOR.  CERTAIN  PROCEDURES  ARE  USED  WHEN  THE  PROGRAM 
IS  USED  IN  THIS  MANNER.   THEY  ARE: 

1.  THE  DIAGNOSTIC  MONITOR  TRANSFERS  CONTROL  TO  THE  PROGRAM 
AND  STARTS  IT  AT  LOCATION  40002. 

2.  MONCTL  -  LOCATION  A0064  IS  USED  AS  THE  DIAGNOSTIC 
MONITOR  CONTROL  FLAG  WORD. 

6.  USER  MODE 

THE  PROGRAM  WILL  OPERATE  IN  USER  MODE  AND  AS  SUCH  PROVIDES 
ASSURANCE  THAT  THE  PROCESSOR  IS  PERFORMING  ALL  FUNCTIONS 
CORRECTLY.  USER  MODE  STARTING  ADDRESS  IS  40000. 

C.  SYSTEM  EXERCISER 

STARTING  ADDRESS  IS  40003.  NO  DATA  SWITCHES  ARE  USED  BY 
THIS  PROGRAM. 

8.0    MISCELLANEOUS 

NONE 

9.0     LISTING 


1 
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SEQ  0007 


1 


I 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 


000000 
000002 


000137 

000137  000000  000002 


;DFKAD 

MCNVER==0 
DECVER==2 

XLIST 

LIST 

LALL 

NAME    \MCNVER,\DECVER* 

TITLE   DFKAD  PDP10  KlIO  BASIC  INSTRUCTION  DIAGNOSTIC  (4)  0,2 

;BYTE,  BLOCK  TRANSFER,  JFFO  AND  OTHER  BASIC  MISCELLANEOUS  INSTRUCTIONS 

COPYRIGHT  1984 

DIGITAL  EQUIPMENT  CORPORATION 
;MARLBORO,  MASS.  01752 

;J.  Kirchoff 

LOC     137 
MCNVER,,DECVER 

NOSYM 
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SEQ  0008 


27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

12 

73 

74 

75 

76 

V 

78 

79 

^^ 

81 


254000 
254000 
254000 
254000 
254000 
254000 
254000 


000040 
000001 
000001 
000001 
000001 
000001 
000001 
000001 
000000 


030000 
030000 
030000 
030000 
030000 
030000 
030000 
030000 
030000 
030000 
030000 


000000 
000000 
000000 
444653  414400 
546064  000000 
000000 
000000 
001000 


SUBTTL  DIAGNOSTIC  PARAMETERS 

.'Parameter  definitions 

6eBU6=40 

EXCASB==1 

USRASB==1 

KI10=1 

KL10=1 

KL10PO=1 

P6MEND==1 

ERDIAG=1 

MEMMAP==0 


.•SPECIAL  FEATURE  DEFINATIONS 

SADR1=6EGIN 
SADR2=6EGIN 
SADR3=6EGIN 
SADR4:=BE6IN 
SADR5=JRST  BEGIN 
SADR6=JRST  BEGIN 
SADR7=JRST  BEGIN 
SADR8=JRST  BEGIN 
SADR9=:JRST  BEGIN 
SADR10=JRST  BEGIN 
SADR11=JRST  BEGIN 


.•SPECIAL  FEATURE  PARAMETERS 

PAREAO=0 

PAREA1=0 

PAREA2=0 

PAREA3=SIXBIT/DFKAD/ 

PAREA4=SIXBIT/LPT/ 

PAREA5=0 

PAREA6=0 

ITERAT==1000 


.•Macros 


;  Stop  -  used  for  scope  loop,  if  instruction  fails,  c  ige  (jumpa  .■♦■1) 
To  a  (jumpa  .-x)  to  cycle  on  failing  instruction 


DEFINE  STOP    (AX 
HALT    .-H 
JUMPA   .-M 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction> 


;  Sflag  -  used  to  clear  all  flags  then  to  set  selected  flag 


DEFINE  SFLAG 
MOVSI 
JFCL 
JRST 


(AX 
1.A 
I^.^H 
2..'H(1) 


.'Reset  all  flags 
;Set  a  flag> 


\mt»1»d^•k^m|mlm^^<i^mm^ 


OFKAD  PDP10  KL10  BASIC  INSTRUCTION  DIAGNOSTIC  (4)  0,2   MACRO  X53A(1152)  10:53  2-0ct-84  Page  1 

""  ♦PARAW*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18J979 


PARAM   KLM 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 


18-Sep-79  17:16 


SEQ  0009 


400000 
200000 
100000 

ABORT== 
RSTART= 
TOTALS= 

400000 
=200000 
=100000 

040000 
020000 
010000 

NOPNT== 
PNTLPT= 
DING== 

040000 

=020000 

010000 

004000 
002000 
001000 

LOOPER= 
ERSTOP= 
PALERS= 

=004000 
=002000 
=001000 

000400 
000200 
000100 

RELIAB= 
TXTINH= 
INHPAG= 

=000400 
=000200 
=000100 

000040 
000020 
000010 

MODDVC= 
INHCSH= 
OPRSEL= 

=000040 
=000020 
=000010 

000004 

CHAIN== 

000004 

000002 

KAHZ50= 

=000002 

SUBTTL  *PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18,1979 

DEFINE  S,<;  ♦***♦♦*****♦♦♦♦**♦**********♦***♦**♦*•**♦****♦♦***•******♦♦♦♦**♦*♦♦**> 

:*DATA  SWITCHES  (READ  FROM  CONSOLE  IN  EXEC  MODE  OR  TYPED  IN  IN  USER  MODE) 

;*LEFT  HALF  SWITCHES  ARE  PRE-ASSI6NED  FOR  SUBROUTINE  PACKAGE  USE 

;*AND  CONTROL  LOOPING,  PRINTING  ^TY  OR  OTHER  DEVICE)  AND  MISC.  FUNCTIONS 

ABORT  PROGRAM  ON  PASS  COMPLETION 
RESTART  TEST,  PRINT  TOTAl  S 
PRINT  TOTALS,  CONTINUE 

INHIBIT  ALL  PRINT/TYPE  OUT  (EXCEPT  FORCED) 

PRINT  ALL  DATA  ON  LPT  (LOGICAL  DEVICE,  USER  MODE) 

RING  BELL  ON  ERROR 

ENTER  EXERCISE/CHECK  LOOP  ON  ERROR 
HALT  ON  TEST  ERROR 
PRINT  ALL  ERRORS 

RELIABILITY  MODE 
INHIBIT  ERROR  TEXT 
INHIBIT  PAGING 

MODIFY  DEVICE  CODE 
INHIBIT  CACHE 
OPERATOR  SELECTION 

CHAIN  CONTROL  SWITCH 

KAIO  50  HERTZ  POWER 

SWITCH  17  RESERVED  !!! 


1     r 


DFKAD  PDP10 
PARAM   KLM 

117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
140 
1A1 
142 
143 
144 
145 
146 
147 
148 
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027772 

027773 

027774 

027775 

02777 

02777 


♦PARAM*  PROGRAM/SUBROUTINE  PARAMETERS,  SEPT  18J979 

SUtTTL  *PARAM*  PROGRAM/ SUBROUTINE  PARAMETERS,  SEPT  18,1979 

;*SPEtiAL  SUBPROGRAM  LINKAGES 


SEQ  0010 


FSELNK=  lim 
FRDLNK=  27773 
LDLNK=  lint^ 
DDTLNK=  27775 
MODLNK=  Vll\ 
SUBLNK=  21171 


FILE  SELECT  LINK 

FILE  READ  LINK 

LOAD  LINKAGE  ADDRESS 

DDT  LINKAGE  ADDRESS 

OPERATIONAL  MODE  CHECK  LINKAGE  ADDRESS 

SUBROUTINE  LINKAGE  ADDRESS 


♦SPECIAL  SUBROUTINE  FATAL  HALTS 

♦USED  TO  REPORT  ERRORS  THAT  CAUSE  THE  SUBROUTINES  TO  BE  UNUSABLE 

ADDRESS   TAG  REASON 


1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1020 


NOEXEC 

PLERR 

PLERR1 

MUOERR 

DTEBER 

DTECER 

CPIERR 

EOPERR 

LUOERR 


PROGRAM  NOT  CODED  FOR  EXEC  MODE  OPERATION 

FATAL  PUSH  LIST  POINTER  ERROR 

INITIAL  PUSH  LIST  POINTER  ERROR 

MUUO  UITH  LUUO  HANDLER  WIPED  OUT 

DTE20  INTERRUPT  WITHOUT  DOORBELL 

DTE20  CLOCK  INTERRUPT  WITHOUT  FLAG  SET 

CPU  INITIALIZATION  ERROR 

END  OF  PROGRAM  ERROR 

INTERRUPT  WITH  LUUO  HANDLER  WIPED  OUT 


*******t*******«**^*t«*********************«r«r**  **•***•****•***  *•**•*•• 
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SEQ  0011 


U9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 


260740 
263740 
261740 
262740 
254000 
254200 
254100 
254500 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


265000  030011 


037640  000004 
037600  000004 


037000 
037040 
037100 
037140 
037200 
037240 
037300 
037340 
037400 
037440 
037500 


000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 


D 
S 


OPERATOR  DEFINITIONS  (N0N-UU0*S) 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


GO 

RTN 

PUT 

GET 

PJRST 

HALT 

JRSTF 

JEN 


CPUSHJ 

CPOPJ 

[PUSH 

CPOP 

CJRST 

[JRST 

CJRST 

[JRST 


P'3 

4J 
iJj 


SUBROUTINE  CALL 
SUBROUTINE  RETURN 
PUT  DATA  ON  PUSH  LIST 
GET  DATA  FROM  PUSH  LIST 
JRST  TO  ROUTINE  THAT  RTN'S 
DEFINITION  FOR  DDT 
DEFINITION  FOR  DDT 
DEFINITION  FOR  DDT 


SUBROUTINE  INITIALIZATION  CALL 


OPDEF       PGMIfiT     CJSP        O^SBINIT] 


.-SUBROUTINE  INITIALIZATION 


HALTING  UUO'S  (A  MORE  GRACEFUL  HALT  THAN  SIMPLY  USING  THE  HALT  INSTRUCTION) 

OPDEF   FATAL   C37B8!15B12!4:  ;FATAL  PROGRAMMING  HALT 
OPDEF   ERRHLT  i:37B8!14B12!43  .-PROGRAM  ERROR  HALT 

********************** t*t ****«*****************#•****••******••« ****** 

TERMINAL  INPUT  UUO'S 

ALWAYS  COME  F90M  THE  CONSOLE  TERMINAL  IN  EXEC  MODE  OR  THE 

CONTROLLING  TERMINAL  (REAL  TERMINAL  OR  PTY)  IN  USER  MODE. 
********************************************************************** 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


TTICHR  i:37B8 
fTIYES  C37B8 


TTINO 

TTIOCT 

TTIDEC 


C37B8 
C37B8 
C37B8 


TTICNV  C37B8 

TTLOOK  C37B8 

TTALTM  C37B8 

TTSIXB  C37B8 

TTYINP  C37B8 

TTICLR  C37B8 


OBI  2 1 33 

1B1213] 

2B12I3] 

3B12I33 

4B12I3] 

5B12!3] 

6B12!33 

7B12133 

10B12!3] 

11B12!3] 

12B12!3] 


TTY.  INPUT  ANY  CHARACTER 

TTY.  NORMAL  RETURN  Y 

TTY.  NORMAL  RETURN  N 

TTY.  INPUT  OCTAL  WORD 

TTY.  INPUT  DECIMAL  WORD 

TTY.  INPUT  CONVERTABLE  WORD 

TTY.  KEYBOARD  CHECK 

TTY.  ALT-MODE  CHECK 

TTY.  INPUT  SIXBIT  WORD 

TTY.  IMAGE  MODE  INPUT 

TTY.  CLEAR  INPUT 


.■Wi»ti»i«W»WiMfc- 
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SEQ  0012 


D 
S 


192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
20i) 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
^26 

230 
231 
232 
233 
234 
235 


.-TERMINAL  OUTPUT  UUO'S. 


037000 

000000 

OPDEF 

PNTA 

C37B8!0B12!0]   . 

;Pr<INT 

037000 

000001 

OPDEF 

PNTAF 

:37B8!0B12!13   , 
:37B8!17B12!0]  . 

; PRINT 

037740 

000000 

OPDEF 

PNTAL 

;  PRINT 

037740 

000001 

OPDEF 

PNTALF 

:37B8!17B12!1D  . 

; PRINT 

037600 

000003 

OPDEF 

PSIXL 

:37B8!14B12!3J  . 

;  PRINT 

037640 

000003 

OPDEF 

PSIXLF 

:37B8!15B12!3]  . 

;  PRINT 

037000 

000000 

OPDEF 

PNTMSG 

:37B8!0B12!0] 

; PRINT 

037040 

000000 

OPDEF 

PNTMSF 

:37B8!1B12!0D   , 

;  PRINT 

037100 

000000 

OPDEF 

PSIXM 

:37B8!2B12!03 

; PRINT 

037200 

000000 

OPDEF 

PSIXMF 

:37B8!4B12!03   . 

;  PRINT 

037000 

000000 

OPDEF 

PNTCI 

:37B8!0B12!03 

;  PRINT 

037040 

DOOO 

OPDEF 

PNTCIF 

:37B8!1B12!03   . 

;  PRINT 

037500 

000000 

OPDEF 

PNTCHR 

:37B8!12B12!0.1  . 

; PRINT 

037500 

000001 

OPDEF 

PNTCHF 

:37B8!12B12!1J  . 

;  PRINT 

037040 

000000 

OPDEF 

PNT1 

:37B8!1B12!0J   . 

;  PRINT 

037040 

000001 

OPDEF 

PNT1F 

:37B8!1B12!13   . 

; PRINT 

037100 

000000 

OPDEF 

PNT2 

:37B8!2B12!0]   . 

;  PRINT 

037100 

000001 

OPDEF 

PNT2F 

:37B8!2B12!1]   . 

; PRINT 

037140 

000000 

OPDEF 

PNT3 

:37B8!3B12!0] 

;  PRINT 

037140 

000001 

OPDEF 

PNT3F 

:37B8!3B12!13 

;  PRINT 

037200 

000000 

OPDEF 

PNT4 

:37B8!4B12!0] 

;  PRINT 

037200 

000001 

OPDEF 

PNT4F 

:37B8!4B12!13 

;  PRINT 

037240 

000000 

OPDEF 

PNT5 

:37B8I5B12!03 

;  PRINT 

037240 

000001 

OPDEF 

PNT5F 

:37B8!5B12!13 

; PRINT 

037300 

000000 

OPDEF 

PNT6 

:37B8!6B12!03 

;  PRINT 

037300 

000001 

OPDEF 

PNT6F 

:37B8!6B12I13 

;PRIN^ 

037340 

000000 

OPDEF 

PNT7 

:37B8!7B12!0] 

;PRIN1 

037340 

000001 

OPDEF 

PNT7F 

:37B8!7B12Ii: 

; PRINT 

03/^440 

000000 

OPDEF 

PNT11 

:37B8!11B12!03  . 

r PRINT 

037440 

000001 

OPDEF 

PNT11F 

:37B8!11B12!n  . 

; PRINT 

037400 

000000 

OPDEF 

PNTADR 

:3;88!10B12I0]  . 

; PRINT 

037400 

000001 

OPDEF 

PNTADF 

:37B8!10B12!1]  . 

;  PRINT 

037600 

000000 

OrDEF 

PNTOCT 

:37B8!14B12!0J  . 

;  PRINT 

037600 

000001 

OPDEF 

PNTOTF 

:37B8!14B12!1]  . 

;PRINT 

037540 

000000 

OPDEF 

PNTHU 

:37B8I13B12!03  < 

;  PRINT 

037540 

000001 

OPDEF 

PNTHWF 

:37B8I13B12!n  . 

;PRINT 

037700 

000003 

OPDEF 

PNTOCS 

:37B8!16B12!3]  . 

; PRINT 

037740 

000003 

OPDEF 

PNTOCF 

:37B8!17B12!3]  . 

; PRINT 

037640 

000000 

OPDEF 

PNTDEC 

:37B8!15B12!0]  . 

;PRINT 

037640 

000001 

OPDEF 

PNTDCF 

:37B8!15B12in  . 

;  PRINT 

037700 

000000 

OPDEF 

PNTDS 

:37B8I16B12!0]  . 

;  PRINT 

037700 

000001 

OPDEF 

PNTDSF 

C37B8M6B12I1]  , 

;  PRINT 

ASCII  WORD 

ASCII  UORD  FORCED 

ASCI2  LINE 

ASCI2  LINE  FORCED 

SIXBIT'Z  LINE 

SIXBIT'Z  LINE  FORCED 

MESSAGE  IMMF'^TATE 

MESSAGE  IMriJVATE  FORCED 

SIXBIT'Z  MS(  .MMEDIATE 

SIXBIT'Z  MSG  IMM  FORCED 

CHARACTER  IMMEDIATE 

CHARACTER  IMMEDIATE  FORCED 

CHARACTER 

CHARACTER  FORCED 

ONE  OCTAL  DIGIT 

1  OCTAL  DIGIT  FORCED 
TWO  OCTAL  DIGITS 

2  OCTAL  DIGITS  FORCED 
THREE  OCTAL  DIGITS 
THREE  OCTAL  DIGITS  FORCED 
FOUR  OCTAL  DIGITS 

FOUR  OCTAL  DIGITS  FORCED 

FIVE  OCTAL  DIGITS 

FIVE  OCTAL  DIGITS  FORCED 

SIX  OCTAL  DIGITS 

SIX  OCTAL  DIGITS  FORCED 

7  OCTAL  DIGITS 

7  OCTAL  DIGITS  FORCED 

11  OCTAL  DIGITS 

11  OCTAL  DIGITS  FORCED. 

PHYSICAL  ADDRESS 

PHYSICAL  ADDRESS  FORCED 

FULL  WORD  OCTAL 

FULL  WORD  OCTAL  FORCED 

OCTAL  HALF  WORDS,  6  SP  6 

OCTAL  HALF  WORDS,  6  SP  6  FORCED 

OCTAL,  SUPPRESS  LEADING  O'S 

OCTAL,  SUPPRESS  LEADING  O'S  FORCED 

DECIMAL,  SUPRESS  LEADING  O'S 

DECIMAL,  SUPRESS  LEADING  O'S  FORCED 

DECIMAL,  SPACES  FOR  LD  O'S 

DECIMAL,  SPACES  FOR  LD  O'S  FORCED 


■la   '  af\nvii\ 
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SEQ  0013 


01 
SI 


236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
212 
271 
27^ 
275 
276 
277 
27^ 
279 


037200 
037000 
037040 
037240 
037100 
037140 
037000 
037040 
037000 
037040 
037000 
037040 
037040 


037540 
037200 


037040 
037100 
037140 


000002 
000002 
000002 
000002 
000002 
000002 
030242 
030242 
000040 
000040 
030243 
030243 
000007 


037040  000026 


r37^0C  000002 


000004 
000004 


000004 
000004 
000004 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPPEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 

OPDEF 

DEFINE 


PNTNM 

PNTSIX 

PNTSXF 

DROPDV 

PNTCU 

PNTCWF 

PCRL 

PCRLF 

PSP 

PSPF 

PCRL2 

PCRL2F 

PBELL 


[37B8 
C37B8 
C37B8 
[37B8 
C37B8 
C37B8 
C37B8 
C37B8 
C37B8 
C37B8 
C3788 
C37B8 
C37B8 


4812 
0812 
1B12 
5B12 
2B12 
3B12 
0612 
1B12 
OBI  2 
1B12 
OBI  2 
1B12 
1B12 


21       ; PRINT  PROGRAM  NAME 

2]   ; PRINT  SIXBIT  WORD 

23   ; PRINT  SIXBIT  WORD  FORCED 

23   ;CLOSE  LOGICAL  FILE,  USER  MODE 

2 J   ; PRINT  DF10  CONTROL  WORC 

2]   ; PRINT  DF10  CONTROL  WORD  FORCED 

CRLFJ  ;PRINT  CARRIAGE  RETURN/LINE  FEED 

CRLF3  .-PRINT  CARRIAGE  RETURN/LINE  FEED  FORCED 

403  .-PRINT  SPACE 

403  :PRINT  SPACE  FORCED 

CRLF2i  .-PRINT  CARRIAGE  RETURN/LINE  FEED  (TWICE) 

CRLF23  .-PRINT  CARRIAGE  RETURN/LINE  FEED  (TWICE)  FORCED 

73   .-PRINT  TTY  BELL 


PFORCE  C37B8!1B12!263  .-PRINT  FORCE.  CONTROL  0  OVERRIDE 


PMSG 
PSIXM 


(ARG),< 
CSIXBITXARG*  \3> 


DEFINE  PMSGF   (ARG).< 

PSim?     CSIXBIT\ARG*.\3> 

.-SIXBTZ  —  MACRO  TO  GENERATE  SIXBIT  DATA  FOR  PRINTING 
CONSERVES  CORE  OVER  ASCIZ 

DEFINE  SIXBTZ  (ARG).<  CSIXBIT\AR6'.\j> 

.-CONSOLE  S'  TCH  INPUT  UUO. 

.-READ6  cor  UE  SWITCHES  IF  IN  EXEC  MODE  OR  ASKS  FOR  THEM  IF 

;  USER  KODi  . 

OPDEF   SWITCH  C37B8 11 OBI 2! 23  ; INPUT  CONSOLE  SWITCHES 

.-CLOCK  INITIALIZATION  UUO  -  TO  SET  DESIRFD  CLOCK  OPERATION 

.-EITHER  IGNORE  CLOCK.  ONLY  IFT  IT  TICK  OR  CAUSE  INTERRUPT  TO  OCCUR. 

OPDEF   LLOKOP  C37B8!13B12lO  .-CLOCK  Or^--  tqn  UUO  -  'DP-11  CLOCK 
OPDE."   MTROP   C37B8!4B12!43   ; CLOCK Z^'-   ION  UUU  -  '20  METER 

;KL10  CNLY  CACHE  OPERATION  UUO'S 

OPDEF   CINVAL  C3788!1B12!43   .CACHE  INVALIDATE 

OPDEF   CFLUSH  [37B812B12I43   .-CACHE  FLUSH 

OPDEF   CWRTBI  C37B8I3B1214]   .-CACHf  WRITE-BACK  S  INVALIDATE 
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280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 


037500     000004 
037700     000004 


037000 
037500 
037440 
037540 
037640 
037600 
037740 


037340 
037300 


037240 
037300 
037340 
037400 


000004 
000002 
000002 
000002 
000002 
000002 
000002 


000002 
000002 

030000 
030000 


000004 
000004 
000004 
000004 


037700  000002 


SEQ  0014 


;END  OF  PASS/PROGRAM  UUOS 

.-PERFORMS  THE  END  OF  PASS  FUNCTIONS. 
.•DECREMENT  ITERATION  COUNT.  C.JCK  IF 


INCREMENT  PASS  COUNT. 
FINISHED  WITH  THIS  PROGRAM  ETC 


OPDEF   Ef^DUUO  [37B8!  1281214]  ;UUO  TO  DISPLAY  LIGHTS 
OPDEF   EOPUUO  C37B8!16B12!4]  ;END  OF  PROGRAM  UUO 

MEMORY  MANAGEMENT  UUO'S 

UUO'S  TO  PERFORM  VARIOUS  MEMORY  FUNCTIONS.  MAPPING.  ZEROING.  PAGING. 

ADDRESS  CONVERSION.  ETC... 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDFF 
OPDEF 


MAPMEM 
MEMZRO 
MEMSEG 
MAPADR 
MAPCNK 
MAPSET 
MAPPNT 


[37B8I0B12I4] 

C37B8 

C37B8 

[3788 

[3788 

[3788 

[3788 


I12B12 
I11B12 
113B12 
115812 
114812 
117812 


21 
22 
21 
21 
21 
21 


MAP  MEMO^v 

ZERO  MEMJRY 

SETUP  ?ilMORY  SEGMENT 

VIRTUAL  TO  PHYSICAL  ADR  CONVERT 

MAP  MEMORY  CHUNK 

SET  KI10  EXEC  PAGE  MAP 

PRINT  MEMORY  MAP 


DEVICE  CODE  MODIFICATION  UUO 

ALLOWS  THE  MODIFICATION  OF  lOT'S  TO  ONE  DEVICE  TO  BE  CHANGED  TO 

lOT'S  TO  A  DIFFZRENT  DEVICE  CODE. 

OPDEF   MODPCU  [37881781212]   .-MODIFY  PERHIPERAL  CODE.  USER 
OPDEF   MODPCP  [3*^88 1681 2 12]   .-MODIFY  PERHIPERAL  CODE.  PROGRAM 

IFNDEF  M0DDVL.<M0DDVL==8EGIN> 
IFNDEF  MGDDVU.<MODDVU==BEGIN> 


.-"DIAMON"  FILE  SELECTION  AND  READ  UUOS 


OPDEF  FSELECT  [37881581214] 

OPDEF  FREAD   [37881681214] 

OPDEF  FRD36   [37881 781214] 

OPDEF  FRD8    [378811081214] 


FILE  SELECTION 

FILb  READ  -  ASCII  DATA 

FILE  READ  -  36  BIT  DATA 

FILE  READ  -  8  BIT  DATA 


;KI10  ONLY  UUO  FOR  PRINTING  MARGIN  VALUES 

OPDEF   PNTMGN  [37B8I 1681212]  ;PRINT  MARGIN  VALUE 


IFNDEF 


XLIST 
KLOLD.<LIST 
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323 
324 
325 
326 
327 
328 

329  036000     000000 

330  035000    000000 

331  035040     000000 

332  035100    000000 

333  034000     000000 
334 

335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
35^, 
3S5 
356 
357 
55P 
3!^9 
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SUBTTL     ERROR  HANDLING  UUO  DEFINITIONS,   SEPT  18,1979 

•   ************************ t****«*t«*****t****t****************^*******t* 

;ERR0R  HANDLER  PARAMETERS 


1 


SEQ  0015 


OPDEF  ERUUO  C36B83 

OPDEF  ERLOOP  C35883 

OPDEF  ERLP1  i:35B811B12] 

OPDEF  ERLP2  C3588I2B12] 

OPDEF  REPTUO  C34B8] 


.ERROR  CALL  UUO 

;ERROR  LOOP,   CHECKS  PC, REPT, REPT1 , ERROR 

.•ERROR  LOOP  IF  PC'S  MATCH 

.•ERROR  LOOP  IF  ANY  ERROR 

; REPEAT  LOOP  UUO 


;THE  ERROR  HANDLER  MACROS 

;A  MACRO  TO  REPORT  AN  ERROR  AND  LOOP 

DEFINE     ERROR       (ADR, FORMAT, CORECT, ACTUAL, F,D,ERR)< 

SALL 
ERUUO       FORMAT, CT,,CSIXBIT\F'    \] 
CORECT., ACTUAL 
CSIXBlt^D'   \],,ERRJ 

XALL 
ERLOOP     ADR  ;IF  ERROR,   LOOP  TO  ADR 


;A  MACRO  TO  REPORT  AN  ERROR  AND  NOT  LOOP 

DEFINE     ERR0R1      (FORMAT, CORECT, AC TUAL.F,D. ERR  X 

ERUUO       FORMAT, [T..CSIXBIT\F'    \] 
CORECT., ACTUAL 
CSIXBr\D*   \],,ERR] 


>;END  OF  KLOLD  CONDITIONAL 

XLIST 
LIST 


SALL 


XA).L> 


MMMinM|J>M<U«jr 


MiMfMiMdM»iM#i«iMHiri^i^^ 


1_ 
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361 

362 

363    030000 

36A 

365 

366 

367 

368 

369 

370 

371 

372 

373  030000    25A  00 

374  030001     254  00 
375 

376    030002     254  00 
377 

378    030003    254  00 
379 

380    030004     254  00 
381 

382    030005     254  00 
383 

384    0^0006    254  00 
385 

386  030007 

387  030007 
388 

389  030010  254  00 

390  030011  254  00 

391  030012  OuJOOO 
392 

393  030013  254000 

394  030014  254000 

395  030015  254000 

396  030016  254000 

397  030017  254000 


INSTRUCTION 
79  17:18 
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LOC  30000 

PROGRAM  STARTING  ADDRESSES 

THESE  ADDRESSES  CALL  VARIOUS  SPECIAL  START  ROUTINES  AND  OR  OPTIONS 
NORMAL  START  ADDRESS  IS  30000  ALL  OTHERS  ARE  SPECIAL.    INVOKED  BECAUSE 
OF  END  OF  PASS,  POWER  FAILURE,  DDT  START,  RE-ENTER1NG(TYPICALLY  USER 

MODE),  OR  ANY  NUMBER  OF  SPECIAL  FEATURE  TESTS. 

*****««***********tt*«t*t«**i^***t ****** t ********************** *•«***** 


SEQ  0016 


1  00  027776 

0  00  030674 

1  00  027774 
1  00  027774 
0  00  030000 
0  00  030000 
0  00  030000 


254  00  1  00  027775 


0  00  030715 

1  00  027777 
000000 

030000 
030000 
030000 
030000 
030000 


BEGIN:  JRST 

SSTART:  JRST 

DImGMN:  JRST 

SYSEXR:  JRST 

SFSTRT:  JRST 

PFSTRT:  JRST 

REENTR:  JRST 

SRTDDT: 

DDTSRT:  JRST 

BEGIN1.  JRST 

SBINIT:  JRST 

RETURN:  0 

START1:  SADR7 

START2:  SADR8 

START3:  SADR9 

START4:  SADR10 

START5:  SADR11 


aMODLNK 
START 

SLDLNK 

aLDLNK 

SADR1 

SADR2 

SADR3 

aDDTLNK 

START A 
aSUOLNK 


STAND-ALONE  START 

MODE  CHECK  STARTING  ADDRESS 

DIAGNOSTIC  MONITOR  START 

SYSTEM  EXERCISER  START 

SPECIAL  FEATURE  START 

POWER  FAIL  RESTART 

RE  NTER  START (USUALLY  USER  MODE  ONLY) 

COMMONLY  MISTAKEN  NAME  FOR  "DDTSRT" 
DDT  START 

LOOP  START (END  OF  PASS  COMES  HERE) 

PMGINT  LINKAGE 

RETURN  ADDRESS  STORAGE 

OPTIONAL  STARTING  ADR/INSTRUCTIONS 
•  t 

I  • 

I I 
I  • 


!)•  li  r- i[|i^ 7iiiii^ii  ^ t wMuamMmmmimimmmt^Mm 
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SEQ  0017 


398 
399 
400 
401 

402  030020 

403  030021 

404  030022 

405  030023 

406  030024 

407  030025 

408  030026 

409  030027 

410  030030 

411  030031 

412  030032 

413  030033 

414  030034 

415  030035 

416  030036 
417 

418 
419 
420 
421 

422  030037 

423  030040 

424  030041 

425  030042 

426  030043 

427  030044 

428  030045 

429  030046 

430  030047 

431  030050 

432  030051 

433  030052 

434  030053 

435  030054 

436  030055 

437  030056 


444653 
546064 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
777777 
777777 
000000 
777777 
000000 
000000 


414400 
000000 
000000 
000000 
001000 
030701 
000002 
030000 
030000 
777777 
777777 
000000 
777777 
000000 
000000 


000000 
000000 
000000 
777777 
000000 
000000 
GuJOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


************«**t****t*«t*t*****t«****«**t*******«******************t«* 


;PROGRA«  FIXED  PARAMETER  AREA 


•  ******************* tt«*************t*********«*«*******«*******«*«*««* 

PNTNAM:  PAREA3  :SIX6IT  PROGRAM  NAME 

PNTEXT:  PAREA4  :SIXBIT  PROGRAM  EXTENSION 

RANDBS:  PAREA1  ; RANDOM  BASE  NUMBER 

SUTEXR:  PAREA2  ;SYSTEM  EXERCISER  SUITCHES 

ITRCNT:  ITERAT  .-PROGRAM  ITERATIONS 

SPNAME:  PGMNAM  .-POINTER  TO  PROGRAMS  NAME 

SPVER:  MCNVER..DECVER     :MCN  I  DEC  VERSION  LEVEL 

SMODVL:  MODDVL  .-DEVICE  CODE  CHANGE  LOWER  LIMIT 

SMODVU:  MODDVU  .-DEVICE  CODE  CHANGE  UPPER  LIMIT 

SEMODE:  IFNDEF  EXCASB.<0>  IFDEF  EXCASB.<-1>  ;EXEC  ALLOWED 

SUMODE:  IFNDEF  USRAS6.<0>  IFDEF  USRASB.<-1>  :USER  ALLOWED 

SDSKUP:  IFNDEF  DSKUPD.<0>  IFDEF  DSICUPD.<-1>  .-DISK  UPDATE  MODE 

SMMAP:  IFNDEF  MEMMAP.<0>  IFDEF  MEMHAP.<-1>  .-ALLOW  MEMORY  RTNS 

PAREA7:  ^AREA5  .-OPTIONAL  PARAMETER 

PAREA8:  rA;REA6  .-OPTIONAL  PARAMETER 

.-PROGRAM  VARIABLE  PARAMETER  AREA 

;     ******************* t**«*««1^*********t**«**«************«**********«*** 

0  =  EXEC.  -1   =  USER  MODE  FLAG 
PROCESSOR  TYPE.  0  =  KA10.  -1   =  KI10 
PROCESSOR  TYPE.  0  =  KA/KI.  -1   =  KLIO 
DIAG  MONITOR  SPECIAL  USER  FLAG 
DIAG  MON/SYS  EXR  FLAG 
-1=  LOADED  BY  10 
CLOCK  TICKED  FLAG 
CONSOLE  SWITCH  SETTINGS 
PROGRAM  PASS  COUNT 
PROGRAM  RUN  FLAG 
SUBTEST  PC 
ERROR  PC 
ERROR  TOTALS 
PROGRAM  RUNNING  TIME 
KI10  MARGIN  WORD  VALUE 
SUBROUTINE   INITIALIZATION  FLAG 


000000 

USER: 

0 

000000 

KAIFLG: 

0 

000000 

KLFLG: 

0 

777777 

MONFLG: 

-1                        ; 

000000 

MONCTL: 

0 

000000 

MONTEN: 

0 

000000 

CLOCKF : 

0 

000000 

CONSW: 

0 

000000 

PASCNT: 

0 

000000 

RUNFLG: 

0 

000000 

TESTPC: 

0 

000000 

ERRPC : 

0                             ; 

000000 

ERRTLS: 

0 

000000 

TICKS: 

0 

000000 

MARGIN: 

0 

000000 

SONETM: 

■Wl>MWi*W»f»»W**«iii.— OWH»«IWi.Mi*»««l«i«*MWili 


mmtmm»m*mtmmifim\\  >iitm\'tmimit 


r 
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SEQ   0018 


438 
439 
440 
441 

442  030057 

443  030060 

444  030061 

445  030062 

446  030063 

447  030064 

448  030064 

449  030065 

450  030065 

451  030066 

452  030067 

453  030070 

454  030071 

455  030072 

456  030073 

457  030074 

458  030075 

459  030076 

460  030077 

461  030100 

462  030101 

463  030102 
464 

465  030103 

466  030104 

467  030105 
468 

469 
470 
471 
472 

473  030106 

474  030107 

475  030110 

476  030111 

477  030112 
478 

479  030113 

480  030114 
481 

482  030115 

483  030116 

484  030117 

485  030120 

486  030121 

487  030122 

488  030123 


037  12  0  00  000004 
254  00  0  00  030010 
037  16  0  00  000004 
254000  030000 
254000  030000 

350  00  0  17  000000 


263  17 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
255  00 
254  04 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
030102 


000000  000000 
000000  000000 
000000  000000 


000000 
000000 
000000 
000000 
000000 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 


.•SPECIAL  PROGRAM  DISPATCH  ADDRESSES 

•  t ****** t*****t*****t***t ************************************* •**«•*••♦ 


BEGEND:  ENDUUO 

SBENDI:  JRST 

$BEND2:  EOPUUO 

CNTLC:  SADR5 

ALTMGO:  SADR6 
CP0PJ1: 

UUOSKP:  AOS 
CPOPJ : 


BEGIN1 


(P) 


UUOEXT 
UUORTN 
$UORTX 
SUUOER 
SITRHL 
$ITRX1 
$USRHL 
SRSRTX 
SRSRTY 
RESRT1 
RESRT2 
SPARER 
ERMORE 


RTN 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

HALT 


SPSHER:  0 
ITRCH1:  5 


END  OF  PASS 

KEEP  RUNNING  PROGRAM 

END  OF  PROGRAM  -  NO  RETURN 

CONTROL  C  XFER  ADDRESS 

ALTMODE  XFER  ADDRESS 

SKIP  i^ETURN 

SKIP  RETURN  FROM  UUO 

NON-SKIP  REGULAR  RETURN 

UUO  RETURN 

ADDITIONAL  USERS  UUO  ROUTINE 

ADDITIONAL  UUO  LINKAGE 

INITED  AS  (JRST  SUOERX) 

ADDITIONAL  INTERRUPT  LINKAGE 


1 1 


ADDITIONAL  POWER  F/'iIL  LINKAGE 
INITED  AS  (JRST  RESRTX) 


• « 


ADDITIONAL  PARITY  ERROR  LINKAGE 
ADDITIONAL  ERROR  HANDLER  LINKAGE 
IMPROPER  TRANSFER  HALT 

INITED  AS  (JRST  PSHERR) 

PC  &  FLAGS  OF  CURRENT  INTERRUPT 

INITED  AS  (JRST  SITRCD 


;  ********************************************************************** 

.•PROCESSOR  CONTROL  STORAGE 

•   ********************************************************************** 


SAC CO:  0 

%sypi :  0 

SSVAPR:  0 

SSVPAG:  0 

SSPAGI:  0 

SSVUUO:  0 

SSVUPC:  0 

REPTU:  0 

SCOPE:  0 
XCORFLG:0 

XCOREC:  0 

XACTFL:  0 

XACTUL:  0 

XDISCR:  0 


INTERRUPT  SAVED  ACO 
INTERRUPT  SAVED  PI 
INTERRUPT  SAVED  APR 
INTERRUPT  SAVED  PAG  (DATAI) 
INTERRUPT  SAVED  PAG  (CONI) 

CURRENT  USERS  UUO 

PC  OF  CURRENT  USERS  UUO 

REPEAT  UUO  ITERATIONS 

ERROR  HANDLER  SCOPE  LOOP  FLAG 

••  CORRECT  FLAG 

••  CORRFCT  DATA 

••  ACTUAL  FLAG 

••  ACTUAL  DATA 

••  DISCREPENCY  DATA 


T 


"  ~! 
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SEQ  0019 


A89 
490 
491 
492 
493 

494  030124 

495  030125 

496  030126 

497  030127 

498  030130 

499  030131 

500  030132 

501  030133 

502  030134 

503  030135 

504  030136 

505  030137 

506  030140 

507  030141 
508 

509 
510 
511 
512 

513  030142 

514  030143 

515  030144 

516  030145 

517  030146 
518 

519 
520 
521 
522 

523  030217 

524  030220 

525  030221 

526  030222 

527  030223 

528  030224 

529  030225 

530  030226 

531  030227 

532  030230 

533  030231 

534  03023 

535  03023 

536  030234 

537  030235 

538  030236 

539  030237 

540  030240 

541  030241 


030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 


030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 


000000  000000 

000000  000000 

000000  000000 

000000  000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 
QOOOOO 

oooooo 

OOOOOO 
OOQOOO 

oooooo 

OQOOOO 
QOOOOQ 
OOOOOO 


;  *«********«**t ******«*«*«** t***«r*t**«*************t ******«****•«**•••• 


;UUO  DISPATCH  TABLE 


;  ••♦♦♦♦♦♦♦•♦♦♦*****»*****t*****»*************************************** 


XLIST 
LIST 
UUODIS:  LUU01,,$UU0ER 
LUU03,,LUU02 
LUU05,aUU04 
LUU07.AUU06 
LUUOIKAUUOIO 
LUU013,,LUU012 
LUU015,aUU014 
LUU017,AUU016 

LUU021 ,  auuo20 
LUU023,AUU022 
LUU025,AUU024 
LUU027,,LUU026 
LUU031,aUU030 
LUU033,,LUU032 


;     t*******«*******«***«*«*t«*****«*t************«*««r**««**«t*****«*«**** 


:l1En0RY  nANAGMENT  STORAGE 


;  **«**«r«*****tt******t«**t****************«*********«r*«r**«***t«*««*t*** 


On2F:  0 

I1APNEU:  0 

NEMTOT:  0 

MEMLOU:  0 

MEMSI2:  BLOCK  *D41 


0F10  CONTROL  FLAG,  0  =  18,  -1  =  22   BIT 

HEMORY  NAPPING  CONTROL  FLAG,  -1  =  4096K  MAPPING 

TOTAL  MEMORY  SIZE  IN  K  (1024.) 

LOWEST  USABLE  MEMORY 

MEMORY  SEGMENT  POINTER  TABLE 


t«**********t******t**«t«*******************«r****«*tt***«****t«**««*** 


;PRINT  CONTROL  STORAGE 


;  ******************t*t«********t***t***«*******************i^««rt*««***«* 


OOOOOO 

PNTFLG: 

0 

OOOOOO 

PNTEN6: 

oooooo 

PDISF: 

oooooo 

PNTINH: 

0 

oooooo 

PNTSPC : 

0 

oooooo 

OPTIME: 

0 

oooooo 

STUCNT: 

0 

080000 

SDVOFF: 

TTYFIL: 

0 

OOOOOO 

TTYSPD: 

0 

oooooo 

$TTCHR: 

0 

Sooooo 

ICHRIN: 

0 

STYPNB: 

0 

oooooo 

$CRLF : 

0 

QOOOOO 

oooooo 

STABF : 

%ff^: 

g 

$VTF : 

QOOOOO 

oooooo 

USRLFF: 

8 

USRCRF : 

PRINT  FLAG,  -1  WHILE  IN  PRINT  ROUTINE 

PRINT  ENABLE 

PRINT  DISABLED  FLAG 

INHIBIT  PRINT  INPUT  CHECKS 

PRINT  SPACE  CONTROL 

TYPE-IN  WAIT  TIME 

TIME  WAITED 

LOGICAL  DEVICE  INITED  FLAG 

TTY  EXEC  FILLERS  FLAG 

TTY  EXEC  BAUD  RATE 

ACTUAL  TYPED  IN  CHAR 

UPPER  CASED  ft  PARITY  STRIPPED  CHAR 

TYPED  IN  NUMBER 

FREE  CR/LF  FLAG 

TAB  CONVERSION  FLAG 

FORM  FEED  CONVERSION  FLAG 

VERTICAL  TAB  CONVERSION  FLAG 

USER  LF  FILLERS 

USER  CR  FILLERS 
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SEQ  0020 


542 
543 
544 
545 
546 
547 
548 

549  030242 

550  030242 

551  030243 
552 

553  030243 

554  030244 

555  030245 

556  030246 

557  030247 

558  030250 

559  030250 

560  030251 

561  030252 

562  030253 

563  030254 

564  030255 

565  030256 

566  030257 

567  030260 

568  030261 

569  030262 

570  030263 

571  030264 
572 

573 
574 
575 
576 

577  030265 

578  030270 

579  030271 

580  030272 
581 

582 
583 
584 
585 

586  030274 

587  030277 

588  030300 

589  030301 


015  012  000  000  000 


015  012  015  012  000 

054  000  000  000  000 

056  000  000  000  000 
040  000  000  000  000 
Oil  000  000  000  000 

055  000  000  000  000 
053  000  000  000  000 
052  000  000  000  000 
100  000  000  000  000 

050  000  000  000  000 

051  000  000  000  000 
007  0000000000 

077  000  000  000  000 

057  000  000  000  000 
044  000  000  000  000 
000000  000012 
000000  000040 
000000  000012 


60  62  51  56  64  00 
60  56  64  00  00  00 


60  62  51  56  64  00 
60  56  64  00  00  00 


THE  FOLLOWING  MISCELLANEOUS  PRINT  CHARACTERS  ARE  INCLUDED 

TO  FACILITATE  PRINTING  AND  ARE  CALLED  AS  FOLLOWS: 

MOVE  I  NAME 

PNTA  ;0R  PNTAF 


CRLF: 

/ 

CRLF2: 


ASCII/ 
ASCII/ 


/ 

COMMA:  ASCII/,/ 

PERIOD:  ASCII/./ 


SPACE: 

TAB: 

MINUS: 

HYPEN: 

PLUS: 

AST: 

ATSIN: 

LFP: 

RTP: 

BELL: 

QUEST: 

SLASH: 


ASCII/  / 
ASCII/  / 


ASCII/-/ 

ASCII/*/ 

ASCII/*/ 

ASCII/a/ 

ASCII/(/ 

ASCII/)/ 

BYTE  (7)  007 

ASCII/?/ 

ASCII!/! 

DOLLAR:  ASCII/$/ 

RADIX:  '^DIO 

RADLSP:  40 

RADLSC:  *D10 


.•DECIMAL  PRINT  RADIX 
.•DECIMAL  PRINT  LEADING  CHAR 
.•DECIMAL  PRINT  LEADING  CHAR  COUNT 


USER  MODE  OUTPUT  FILE  INFORMATION 

•*******4r*t *«*•*******•««••« ******************** ***•*••••••*••**«**••• 


$OBUF:  BLOCK  3 

SOUTNM:  SIXBIT  /PRINT/ 

$OUTEX:  SIXBIT  /PNT/ 

BLOCK  2 


.•LOGICAL  FILE  OUTPUT  BUFFER  HEADER 

.•FILE  NAME 

;FILE  NAME  EXTENSION 


DISK  UPDATE  MODE  FILE  INFORMATION 

$iBUF:  BLOCK  3 

$INNM:  SIXBIT  /PRINT/ 

SINEXT:  SIXBIT  /PNT/ 

BLOCK  2 


1 


"1   r 
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590 
591 
592 
593 
594 
595 


030505     000000    000000 


030506 
030507 


030303 
03030A 

596    030504 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 


030512 
030513 
030514 


777577 
000000 


030303 
000000 
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PUSHDOWN  LIST  CONTROL  INFORMATION 
****•*••***••***♦♦*•*♦♦♦♦••*•**•**••**•*  ?**••••*♦•**••••••*•••••••••• 

PLIST:  PLIST-PLISTE,,PLIST 
PLISTS:  BLOCK       200 


000000 
000000 


000000 
000000 


030510    000000    000000 


030511     000000    000000 


000000 
000000 
000000 


000000 
000000 
000000 


030515     000000    000000 


SEQ  0021 


PLISTE:  0 


;END  OF  PUSHDOWN  LIST 


POWER  LINE  CLOCK  FREQUENCY  FLAG 


CYCL60:  0 


;0  =  60,  -1  =  50  CYCLE 


KL10  CACHE  CONTROL  FLAGS 


CSHFLG:  0 
CSHMEM:  0 


;ALLOW  CACHE  IF  0 

; CACHE  MEMORY  SEGMENTS  if  0 


NUMBER  INPUT  DIGIT  FLAG 


TTNBRF:  0 


;-1  IF  ANY  DIGIT  TYPED 


KL10  ft  KI10  "INHPAG"  SWITCH  PAGING  PREVENTION 

t  If  It  It  t  If  If  It  1ft  It  titlfttif  If  t**1t1tif1tt1f1t1t1f  If  If  Itltlflf  If  If  t  If 'kitlttlf'kifit  It  tiftttlf  If  ititlttlr'k'kitltlt'kttit 


PVPAGI:  0 


:lf   NON-ZERO,  OVERRIDE  "INHPAG"  SWITCH  ACTION 


t*t1t***1t1t1t1t1t1f1tlt1e1f1t*1ft1t*t**1t1ft1f*1f1f1f1t*1f1f1f1f1fit1ttif1fiftt1f1tit1t1f1t1tit'k1tlt1t1t1tt1t1ttit1i1t 

ERROR  REPORTING  ROUTINE  ADDITIONAL  USERS  CONTROL  INSTRUCTIONS 


XERHI1:  0 
XFRHI?:  0 
XERHI3:  0 


:lf   NON-ZERO,  XCT'D  AT  START  OF  XERUUO 
:lf   NON-ZERO,  XCT'D  AT  END  OF  XERUUO 
;lf   NON-ZERO,  XCT'D  AFTER  'VC   OF  XERUUO 


tt1t1f*1t1t1t1tt1t1ft1t1tt1ft1f1tt1ttt*t*if1f*t1t1t1t1tit1tifif1t1t1ft1t1t1f1f1t1titit1tit1f1tit1('k1(*t1tt1i1i1t*1t1t1t 

SPECIAL  USERS  UUO  INTERCEPT  INSTRUCTION 

1ft1titt1t1tt1tit*t1t1ttk1t*1ft1tttrfttt*tt1f1ft1fttttt1t1t1t1t1f'k1t1t1t1t1f1t'k1t1t*1t1t1t1t1t'k1t1(1t1tit1t1t1t1t 


$$UUO:  0 


:1F   NON-ZERO,  XCT'D  AT  START  OF  SUORTN 


.* 


T 


000000    000000 


000000    000000 


000000    000000 


000000    000000 


DFKAD  PDP10  KL10  BASIC   INSTRUCTION 
FIXED       KLM  18-Sep-79  17:18 


636 

637 

638 

639 

6A0    030516 

6A1 

6A2 

6A3 

6A4 

6A5 

6A6     030517 

6A7 

6A8 

649 

650 

651 

652    030520 

653 

654 

655 

656 

657 

658    030521 

659 

660 

661 

662 

663 

664  030522 

665  030523 
666 

667 

668 

669 

670 

671     030524 

672 

673 

674 

675 

676 

677     030525 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687  030577 

688  030577 
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USER  MODE  MONITOR  TYPE  FLAG 


000000 
000000 


000000 
000000 


000000    000000 


000000    000000 


000000    000000 


MONTYP:  0 


;0  =  TOPS10,  -1  =  TOPS20 


SPECIAL  USERS  MUUO  INTERCEPT  INSTRUCTION 


$$MUU0:   0 


:lf  NON-ZERO,   XCT'D  AT  START  OF  MUUOER 


**t  %•*******•******•  t***tt«ltr  ******•••**••**•*•••**••«•••  •••••••**••••• 

SPECIAL  USERS  USER  MODE  OUTPUT  ERROR  INTERCEPT  INSTUCTION 


$$OUTER:0 


;IF  NON-ZERO,   XCT'D  AT  END  OF  USER  MODE  ERROR 


"SWITCH"  CALL  USAGE  CONTROL 
***i^**t *******«**«*«** «*t •***•«*•*•*****••«***•*•******• *••*••••••••*• 


$$TOGGLE:0 


:1F  NON-ZERO,   USE  C(CONSW)   FOR  SWITCHES 


1l1l1t*1i1i1t1f  It  tif  It  Itliiilllt  If  tit  tttttllt  It  liltlllilt  tit  t  It*  t1t1t1f1t1t1t1fit1t1t1i1t*1t1tit  It  ttltt  if  it1fk**ir1titt 

SPECIAL  USERS  ALTMODE  SWITCH  CALL   INTERCEPT  INSTRUCTIONS 

1tmt1f1i'k1t1f1t1f1[1f1f1f1t1ftt1t1ttttic1t1t1t1t1f1i1(1f1f1e1tif1tii1t1f1ft1t1t1tt1t1t1t'k1t1f1t1ft1t1f1t1t1t1t1f1f1t1(1f1fif1t1f 


$$TAX1:  0 
$$TAX2:   0 


:lf  NON-ZERO,   XCT'D  AT  START  OF  ALTMODE  SWITCH  CALL 
;IF  NON-ZERO,   XCT'D  AT  END  OF  ALTMODE  SWITCH  CALL 


1t1t1t1eitt1t1tit1t1t1t1t1t1t1t1tlt1t1t1t1ttt1tt1t1t1t1t1t1t1t1t1t1t1t1c1t1t1t1t1t1t1t1t1t1t1tt1t1f1t1t1t1i1t1t1t1tt1t1tttit1t1tit1t 

SM10  (KS-10)   PROCESSOR  TYPE  FLAG 

It  tt  *********  t  It  Itlttltltltttt  tttltlt  1t1t1t1t1t1t1tit1t1t1t1t1t1iit1t  tit*  tltlttittitt  it  tttt  tit  t  tit  ttt  tit 


SM10: 


;IF  -1   THIS  IS  A  KS-10 


*********************** t **************************** tttttttttttttttttt 

RIGHT  HALF  SWITCHES  PROMPT  TABLE  ADDRESS 

**********************************************************tttttttttttt 


SWPTAB:   0 


;0  =  NO  PROMPT,  ADR  =  ADR  OF  SIXBIT  PROMPT  TABLE 


;  tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

.•SPECIAL  FUTURE  EXPANSION  ROOM 

;  tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 
•     tttttktttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

;lND  of  fixed  STORAGE 

;  ttt  ttttt  t  tt  1 1  tttt  ttttt  1 1  ttt  tttttttttt  tt  t  tttt  tt  tt  ttt  tttt  tt  ttt  t  til- ttttttt 


LOC 

imuyL:  0 


30577 


;END  OF   FIXED  STORAGE 


SEQ  Q022 


'1 
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SEQ  0023 


r 

c 
c 


689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 


000000 
030000 
010000 
020^00 
020000 


000200 
000204 
000204 
000210 


000440 
000441 
000442 
000443 

000444 
000445 
000446 
000447 
000450 
000451 
000452 
000453 
000454 
000455 
000456 

000457 


SUBTTL  *SPCCPU*  SPECIAL  BASIC  CPU  PROCESSOR  CONTROL,  26-FEB-76 
;NEW  DEFINITIONS  USED  BY  THE  KL10  SUBROUTINE  PACKAGE 


ACO=        0 
DIAGNOS=30000 
DDT=        10000 
DIAf10N=  20000 
D0NG11=  1B22 

;DTE20  DEVICE  CODES 

DT:==  200 

DTEO==  204 

DT.  ==  204 

DTE2==  210 

DTE3==  214 


PDP-10  DIAGNOSTIC  START  ADDRESS 
PDP-10  DDT  START  ADDRESS 
PDP-10  DIAMON  LOADER  START  ADDRESS 
11  DOORBELL  (FROM  THE  10) 


;DTEO 


;ICL10  EPT  COMMUNICATION  AREA 


$STD= 
$DDT= 
$STL= 
$STM= 


440 
441 
442 
443 


$DTFLG=  444 
$DTCL)(=  445 
$DTCI=  446 
$DTT11=  447 
SDTFIIn  450 
$DTCMD=  451 
$DTSEQ=  452 
$DTOPR=  453 
$DTCHR=  454 
$DTMTD=  455 
$DTMTI=  456 

$DTSWR=  457 


PDP-10  DIAGNOSTIC  START  ADDRESS 
PDP-10  DDT  START  ADDRESS 
PDP-10  LOADER  START  ADDRESS 
PDP-10  MONITOR  START  ADDRESS 

DTE20  OPERATION  COMPLETE  FLAG 

DTE20  CLOCK  INTERRUPT  FLAG 

DTE20  CLOCK  INTERRUPT  INSTRUCTION 

DTE20  10  TO  11  ARGUMENT 

DTE20  11  TO  10  ARGUMENT 

DTE20  TO  11  COMMAND  WORD 

DTE20  OPERATION  SEQUENCE  NUMBER 

DTE2C  OPERATIONAL  DTE  0 

DTE20  LAST  TYPED  CHARACTER 

DTE20  MONITOR  TTY  OUTPUT  COMPLETE  FLAG 

DTE20  MONITOR  TTY  INPUT  FLAG 

DTE20  CONSOLE  SWITCH  REGISTER 


r 


n 


I      r 
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SEQ  Q02i* 


D 
D 


727 
728 
729 
730 

731  030000 

732  030000 

733  030001 
73A 

735  000440 

736  000440 

737  000443 

738  000443 
739 

740  030057 

741  030057 
742 

743 
744 

745  000420 

746  000420 

747  C00421 

748  000422 

749  000423 

750  000424 

751  000425 

752  000426 

753  000427 

754  000430 

755  000431 

756  000432 

757  000433 

758  000434 

759  000435 

760  000436 

761  000437 
762 

763  000500 

764  000500 

765  000501 

766  000502 

767  000503 


030600 


.•SPECIAL  "FIXED"  REASSIGNMENTS 
$$LOC=. 


;SAVE  CURRENT  LOCATION 


LOC 

30000 

254  00 

0  00  030600 

$$BEGIN:JRST 

$$START 

.-SETUP  SPECIAL  START 

254  00 

0  00  030600 

JRST 
LOC 

$$START 
440 

;"DIAMON"  CHAIN  START  ADDRESS 

254  00  0  00  030000 

$STD: 

JRST 

BEGIN 

; SETUP  FOR  "STD" 

LOC 

443 

254  00 

0  00  030626  • 

$STM: 

JRST 
LOC 

$SPEC 
30057 

;SIMPLE  RUN  CONTROL 

254  00 

0  00  030631 

$BE6END:JRST 

$SPBEND 

;SETUP  SPECIAL  "BEGEND" 

.•SPECIAL  MUUO. 

TRAP  &  PAGE 

FAIL  SETUP 

LOC 

420 

254  04 

0  00  000420 

$$420: 

•  HALT 

• 

;KI10  PAGE  FAIL 

255  00 

0  00  000000 

$$421 . 

•  JFCL 

.•OVERFLOW 

254  04 

0  00  000422 

$$422: 

:  HALT 

• 

.•PUSHDOWN  OVERFLOW 

254  04 

0  00  000423 

$$423. 

'  HALT 

• 

.•TRAP  3 

000000 

000000 

$$424 : 

•  0 

;W1U0 

000000 

000000 

$$425: 

■  0 

;W1U0  PC 

000000 

000000 

$$426. 

:  0 

;KI10-PAGE  FAIL.  KLIO-PROCESS  CONTEXT 

254  04 

0  00  000427 

$$427. 

:  HALT 

• 

000000 

000427 

$$430. 

:  427 

;Mf1U0  NEW  PC'S 

000000 

000427 

$$431 . 

:  427 

000000 

000427 

$$432. 

:  427 

GuJOOO 

000427 

$$433. 

:  427 

000000 

000427 

$$434. 

:  427 

000000 

000427 

$$435. 

:  427 

000000 

000427 

$$436. 

:  427 

000000 

000427 

$$457. 

•  427 
LOC 

500 

000000 

000000 

$$500. 

•  0 

;ICL10  PAGE  FAIL  WORD 

000000 

000000 

$$501 . 

•  0 

;KL10  PAGE  FAIL  PC 

000000 

000503 

$$502 

:  503 

;KL10  PAGE  FAIL  NEW  PC 

254  04 

0  00  000503 

$$503. 

:  HALT 

• 

L. 


"1 
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.-RESET  CURRENT  LOCATION 


SEQ  0025 


768 

030600 

LOC 

$$LOC 

769 

770 
771 
772 

; SPECIAL  STARTUP  SEQUENCE 

030600 

402  00  0  00  030037 

$$START 

:SETZM 

USER 

773 

030601 

265  00  0  00  030602 

JSP 

0,."H 

774 

030602 

603  00  0  00  010000 

TLNE 

O.USERF 

775 

030603 

476  00  0  00  030037 

SETOM 

USER 

776 

030604 

336  00  0  00  030042 

SKIPH 

M0NFL6 

777 

030605 

402  00  0  00  030037 

SET2W 

USER 

778 

030606 

332  00  0  00  030037 

SKIPE 

USER 

779 

780 
781 

030607 

254  00  0  00  030674 

JRST 

START 

030610 

336  00  0  00  030044 

SSTKIL: 

SKIPN 

MONTEN 

782 

03061 1 

476  00  0  00  030024 

SETOW 

ITRCNT 

783 

0310612 

402  00  0  00  030041 

SETZW 

KLFL6 

784 

03061 3 

200  01  0  00  034417 

MOVE 

1,C1,J] 

785 

030614 

251  01  0  00  000001 

BLT 

U 

786 

030615 

316  01  0  00  034417 

CAMN 

UC1.J] 

787 
788 
789 

030616 

254  00  0  00  030674 

JRST 

START 

030617 

402  00  0  00  000444 

$STKL: 

SET2M 

$DTFL6 

790 

030620 

402  00  0  00  000445 

SETZM 

SDTCLJC 

791 

030621 

200  00  0  00  000453 

MOVE 

SDTOPR 

792 

030622 

436  00  0  00  030657 

ORM 

$$DTEO 

793 

030623 

436  00  0  00  03  0670 

ORM 

$$DTE2 

794 

030624 

476  00  0  00  030041 

SETOM 

KLFLG 

795 
796 
797 

030625 

254  00  0  00  030674 

JRST 

START 

030626 

200  00  0  00  034420 

$SPEC: 

MOVE 

[JRST  STARTA] 

798 

030627 

2ui  00  0  00  030633 

MOVEM 

$SP81 

799 

030630 

254  00  0  00  030674 

JRST 

START 

IN  USER  MODE  ? 

YES,  SET  CONTROL  WORD 
SPECIAL  USER  MODE  ? 
YES,  RUN  AS  EXEC 

USER  MODE,  DON'T  NEED  CPU  TYPE 

LOADED  BY  "DIAMON"  ? 
NO,  RUN  FOREVER 
ASSUME  KI10 

HOPE  THIS  WORKS 

IF  AC  *"=  K,1  AFTER  BLT,  KLIO 

KI10,  .NO  ADDITIONAL  SETUP 


;GET  DTE  ff 

.•INSERT  IN  DTE  I/O  INSTS 

.-SET  KLIO  CONTROL  FLAG 


.•SIMPLE  RUN  CONTROL 


Dl 
Dl 


L 
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SEQ  0026 


DF 
DF 


800 
801 

802  030631 

803  030632 

804  030633 

805  030634 
806 

807  030635 

808  030636 

809  030637 

810  030640 

81 1  030641 
812 

813  0iO642 

814  030643 

815  030644 

816  030645 

817  030646 

818  030647 
819 

820  030650 

821  030651 
82  "^ 

823  030652 

824  030653 

825  030654 

826  030655 

827  030656 

828  030657 

829  030660 

830  030661 

831  030662 
832 

833 
834 

835  030663 

836  030664 
837 

838  030665 

839  030666 

840  030667 

841  030670 

842  030671 

843  030672 

844  030673 


350  00  0  00  030047 
370  00  0  00  030024 
336  00  0  00  030037 
254  00  0  00  030642 

332  00  0  00  030024 
254  00  0  00  030715 
336  00  0  00  030044 
047  00  0  00  000012 
254  00  1  00  030012 

332  00  0  00  030041 
254  00  0  00  030650 
7  004  14  0  00  030024 
332  00  0  00  030024 
254  00  0  00  030715 
254  00  1  00  030012 

336  00  0  00  030024 
254  00  0  00  030663 


335  00 
254  00 

201  00 

202  00 


0 
0 
0 
0 

402  00  0 
7  200  20 
336  00  0 
Ir-  00  0 
25;  00  0 


00  030043 
00  030715 
00  000404 
00  000451 
00  000444 
0  00  020000 
00  000444 
00  030660 
00  030715 


732  00  0  00  030044 
L54  00  1  00  030012 


201  00  0 

202  00  0 
402  00  0 
7  200  20 
336  00  0 
254  00  0 
254  04  0 


00  000403 
00  000451 
00  000444 
0  00  020000 
00  000^44 
00  030671 
00  030000 


.•SPECIAL  "BEGEND"  ROUTINE 

$SPBEND:AOS  PASCNT 

SOS  ITRCNT 

SSPBI:  SKIPN  USER 

JRST  SSPBEX 


SSPBUS 


$SPBEX 


SSPBKL 


SKIPE 

JRST 

SKIPN 

EXIT 

JRST 

SKIPE 

JRST 

DATAO 

SKIPE 

JRST 

JRST 

SKIPN 
JRST 


SKIPGIi 
jRST 
MOVE  I 
MOVEM 
SETZM 
$$DTEO:  CONO 
SKIPN 
JRST 
JRST 


ITRCNT 
START A 
MONTEN 

aRETURN 

KLFL6 
SSPBKL 
PIJTRCNT 
ITRCNT 

STARTA 
aRl'T'-^ 

ITc»'  ; 
SSP.n.  V 

MONCTL 

STARTA 

0,404 

0,$DTCMD 

SDTFLG 

DTE,D0NG11 

SDTFLG 

.-1 

STARTA 


.•INCREMENT  PASS  COUNT 
.•DECREMENT  ITERATION  COUNT 

;EXEC  MODE 

;USER  MODE.  COMPLETED  ? 
;N0.  KEEP  RUNNING 
;DONE.  LOADED  BY  "DIAMON"  ? 
;N0.  RETURN  TO  MONITOR 
;YES.  RETURN  TO  "DIAMON" 


•KLIO  &  EXEC 

;KI10  &  EXEC.  DISPLAY  ITER  COUNT 

;NOT  COMPLETED  YET 
.•DONE 


;KL10.  EXEC  &  COMPLETED 


.-••DIAMON'*  CONTROL 

.•NOTIFY  PDP-11  OF  END  OF  PASS 


;WAIT  TILL  11  RESPONDS 
;KEEP  RUNNING 


.•SPECIAL  KLIO  COMPLETED  ROUTINE 

SSPKLD:  SKIPE   MONTEN 
JRST    aRETURN 


MOVEI 
MOVEM 
SETZM 
$$DTE:2:  CONO 
SKIPN 
JRST 
HALT 


0.403 

O.SDTCMD 

SDTFLG 

DTE.D0NG11 

SDTFLG 

.-1 

BEGIN 


.•LOADED  BY  "DIAMON" 

.•NOTIFY  PDP-11  OF  COMPLETION 


SHOULD  NEVER  HAPPEN 

11  NEVER  RETURNS  ON  END  OF  PROGRAM 

U   IT  DOES.  HALT. 


OFKAD 
DFKAD1     MAC 


PDPK- 


^  KlIO  BASIC  INSTRUCTION  DIAGNOSTIC  (A)  0,2   MACRO  X53A(n52)  10:53  2-0ct-8A  Page  1 
1-0ct-84  16:01        DIAGNOSTIC  SECTION 


8A5 

8A6 

Sh7  03067A 

848  030675 

849 

850  030676 

«51  030677 

652  030700 

853 

854  03070 i 

855  030701 

856  030702 

857  030703 

858  030704 

859  030705 

860  030706 

861  030707 

862  030710 

863  030711 

864  030712 

865  030713 

866  030714 
867 

868 
869 
870 
871 
872 
873  030715 


SEQ  0027 


336  GO  0  00  030037 

254  GO  0  00  030715 

331  00  0  OC  030043 

051  03  0  00  030701 

254  00  0  00  030715 


SUBTTL 
START: 


DIAGNOSTIC  SECTION 


SKIPN 
JRST 

SKIPL 

TTCALL 

JRST 


USER 
STARTA 

MONCTL 

3,P6WNAM 

STARTA 


015 
123 
115 
060 
111 
123 
124 
104 
117 
040 
133 
104 


012 
131 
040 
040 
103 
124 
111 
111 
123 
050 
104 
135 


104 
123 
113 
102 
040 
122 
117 
101 
124 
064 
106 
015 


105 
124 
114 
101 
111 
125 
116 
107 
111 
051 
113 
012 


103 
105 
061 
123 
116 
103 
040 
116 
103 
040 
101 
000 


PGMNAM:  ASCIZ/ 

DECSYSTEW  KLIO  BASIC  INSTRUCTION  DIAGNOSTIC  (4)  CDFKAD] 


/ 

;Basic  instruction  test  (4) 
;The  test  is  designed  for  initial  debug( 
.•Processor  hardware  and  to  detect  (solii 
;In  the  field. 


ling  of 

I)  failures 


254  00  0  00  030716 


STARTA:  JRST 


.♦1 
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SEQ  0028 


87A 
875 
876 
877 
878 
8/9 
880 
881 
882 
883 
88A 
885 
886 

887  030716 

888  030717 

889  030720 
890 

891  030721 

892  030722 
893 

894 
895 
896 
897 
898 
899 
900 

901  030723 

902  030724 
903 

904  030725 

905  030726 
906 

907 


400  00  0  00  000000 
201  01  0  00  000001 
302  01  0  00  000001 

254  04  0  00  030722 
324  00  0  00  030723 


201  02  0  00  000002 
302  02  0  00  000002 

2:>-  04  0  00  030726 
324  00  0  CO  030727 


SUBTTL 
;Note: 


TEST  OF  AC  HARDWARE  AND  INDEX  REGISTERS 


•  i^*  I 


an  *  ■  in  the  comment  field  of  an  instruction  indicates  that 
It  is  the  tested  instruction. 


t********* 


;This  test  verifies  that  ad  is  accessable 

;In  this  case,  ad  is  preloaded  with  1. 

;C(ac1)  is  then  checked  for  a1.  this  test  passes  if  c(ac1)=1. 

;If  this  test  fails,  the  ac  hardware  is  probably  faulty. 


C100: 


SET2 

MOVE  I 

M 

CAIE 

1,1 

STOP" 

HALT 

.M 

JUMPA 

.-^1 

; Clear  acO 
.-Preload  ad  umth  1 
.-Pass  if  c(ac1)=1 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


«**t****** 


.-This  test  verifies  that  ac2  is  accessable. 

;In  this  case,  ac2  is  preloaded  with  2. 

;C(ac2)  is  then  checked  for  2.  this  test  passes  if  c(ac2)=2. 

;If  this  test  fails,  the  ac  hardware  is  probably  faulty. 


C200: 


MOVE  I 

1.2 

CAIE 

2.2 

STOP* 

HALT 

,♦1 

JUMPA 

."►I 

.-Preload  ac2  with  2 
,-Pass  if  c(ac2)=2 


******•**« 


.-Test  failed  if  program  h«lts  here 
;To  loop  charge  this  instruction* 


•MM 
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SEQ  0029 


908 
909 
910 
911 
912 

913  030727 

914  030730 
915 

916  030731 

917  030732 
918 

919 
920 
921 
922 
923 
924 
925 

926  03J733 

927  030734 
928 

929  030735 

930  030756 
931 

932 


201  04  0  00  000004 
302  04  0  00  000004 

254  04  0  00  030732 
324  00  0  00  030733 


.-This  test  verifies  that  ac4  is  accessable. 

;In  this  case,  ac4  is  preloaded  with  4. 

;C(ac4)  is  then  checked  for  4.  this  test  passes  if  c(ac4)=4. 

;If  this  test  fails,  the  ac  hardware  is  probably  faulty. 

.-Preload  ac4  with  4 

;Pass  if  c(ac4)=4 


C300:   MOVE I 
CAIE 
STOP* 
HALT 
JUMP  A 

4.4 
4.4 

;»♦*♦♦♦♦♦»» 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  acIO  is  accessable. 

:lf\   this  case.  adO  is  preloaded  with  10. 

;C(ac10)  is  then  checked  for  10.  this  test  passes  if  c(ac10)=lO. 

;If  this  test  fails,  the  ac  hardware  is  probably  faulty. 


201  10  0  00  000010 
302  10  0  00  000010 

254  04  0  00  030736 
324  00  0  00  030737 


C400: 


MOVE  I 
CAIE 
STOP* 
HALT 
JUMP  A 


10.10 
10.10 

.*1 


.•Preload  acIO  with  10 
.-Pass  if  c(ac10)=10 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


J********** 


■MlMlMnHlMlpiiMII 


nmmmmmmttm 


T^ 


DFICAD  PDP10  KlIO  BASIC 


DFKAD1  MAC 


1-Oct 
777777 


933 

93A 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945  030737  201  00 

946 

947  030740  201  01 

948 

949  030741  201  02 

950 

951  030742  201  03 

952 

953  030743  201  04 

954 

955  030744  201  05 

956 

957  030745  201  06 

958 

959  030746  201  07 

960 

961  030747  201  10 

962 

963  030750  2u'  11 

964 

965  030751  201  12 

966 

967  030752  201  13 

968 

969  030753  201  14 

970 

971  030754  201  15 

972 

973  030755  201  16 

974 

975  030756  201  17 

976 


INSTRUCTION 
•84  16:01 

000500 
777777 
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SIQ   0030 


SN=500 


000000 
0  00  000000 

000001 
0  00  000001 

000002 
0  00  000002 

000003 
0  00  000003 

000004 
0  00  000004 

000005 
0  00  000005 

000006 
0  00  000006 

000007 
0  00  000007 

000010 
0  00  000010 

00001 1 
0  00  000011 

000012 
0  00  000012 

000013 
0  00  000013 

000014 
0  00  000014 

000015 
0  00  000015 

000016 
0  00  000016 

000017 
0  00  000017 


Z2=-1 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.'Preloaded  with  its  own  address,  then,  the  contents  of  each 
:Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


C500:   REPEAT  *D16, 
<      22=22*1 

MOVE I   22,22 

22=22*1 

MOVEI   22,22 

22=22*1 

HOVEI   22,22 

22=22*1 

nOVEI   22,22 

22=22*1 

MOVEI   22,22 

22=22*1 

NOVEI   22,22 

22=22*1 

nOVEI  U.U 

MOVEI  ll.ll 

HOVEI   22,22 

22^22*1 

MOVEI   22,22 

22=22*1 

HOVE  I  U.U 

MOVEI   22,22 

22=22*1 

nOVEI   22,22 

22=22*1 

nOVEI   22,22 

22=22*1 

MOVEI   22,22 

22=22*1 

MOVE I  II. 21 

MOVE I   22,22 
r.GE 


.•Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 
.'Preload  each  ac  with 


its  addr> 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  addr 

its  .Jdr 
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ZZ=20 

REPEAT  *D16,< 
;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
:Its  address,  this  test  fails. 


SEQ  0031 


977 

000020 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

000501 

1000 

000017 

1001 

030757 

302  17  0  00  000017 

1002 

1003 

030760 

254  04  0  00  030761 

1004 

030761 

324  00  0  00  030762 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

000502 

1016 

000016 

1017 

030762 

302  16  0  00  000016 

1018 

1019 

030763 

254  04  0  00  030764 

1020 

030764 

324  00  0  00  030765 

1021 

1022 

1023 

1024 

1025 

1026 
1027 

1028 

1029 

1030 

1031 

000503 

SN=SN^1 


CAIE    UM 
STOP 


.-Check  that  each  ac  contains  its  own  address 
;In  case  of  failure,  loop  to  "c500"  address 


* 
> 


«**•♦*««•« 


.-This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
.-Its  address,  this  test  fails. 


SN=SN+1 


ZZ=22-1 

CAIE    UM 

STOP* 

HALT    ."H 

JUMPA   .-^1 


.-Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

.-To  loop  change  this  instruction* 

.-In  case  of  failure,  loop  to  "c500"  address 


********** 


.-This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
.-Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
.-Its  address,  this  test  fails. 


SN=SN*1 


Z2=Z2'^ 

CAIE 

Z2M 

STOP* 

HALT 

.-H 

JUMP  A 

.-H 

.-Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

.-To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


********** 


.-This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then.  th«»  contents  of  3ach 
;Ac  is  checked  for  its  address,  if  any  aw  does  not  contain 
.Its  address,  this  test  fails. 

SN=SN+1 
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SEQ   0032 


1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 


030765 

030766 
030767 


030770 

030771 
030772 


030773 

030774 
030775 


030776 

030777 
031000 


00001 5 
302  15  0  00  000015 

254  04  0  00  030767 
324  00  0  00  030770 


000504 
000014 
302  14  0  00  000014 

254  04  0  00  030772 
324  00  0  00  030773 


000505 
000013 
302  13  0  00  000013 

254  04  0  00  030775 
324  00  0  00  030776 


000506 
000012 
302  12  0  00  000012 

254  04  0  00  031000 
324  00  0  00  031001 


ZZ=Z2-1 

CAIE    22M 

STOP* 

HALT    .+1 

JUMPA   .-»-l 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


;••••**♦♦♦♦ 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN^-1 


22=22-1 

CAIE    22,22 

STOP* 

HALT    .+1 

JUMPA   .+1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


;♦•♦**♦♦*♦♦ 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
:Its  address,  this  test  fails. 


SN=SN+1 


22=22-1 

CAIE    22,22 

STOP* 

HALT    .-H 

JUMPA   .-H 


.•Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "'c500"  address 


*»♦♦**♦♦♦# 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN+1 


22=22-1 

CAIE 

STOP* 

HALT 

JUMPA 


22,22 


.•Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


itK-fc  ■■  ..ti 


"X 
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SEQ  0033 


1087 
1088 
1089 
1090 
1091 
1092 
1093 
109A 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
110A 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
11U 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 


031001 

031002 
031003 


000507 
00001 1 
302  11  0  00  000011 

254  04  0  00  031003 
324  00  0  00  031004 


031004 

031005 
031006 


000510 
000010 
302  10  0  00  000010 

254  04  0  00  031006 
324  00  0  00  031007 


031007 

031010 
031011 


000511 
000007 
302  07  0  00  000007 

254  04  0  00  031011 
324  00  0  00  031012 


*****«***• 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then,  the  contents  of  each 
:Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN-H 


2Z=Z2-1 

CAIE    ZZ,Z2 

STOP^ 

HALT    .^^ 

JUMPA   .+1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


;*♦♦*♦♦*♦♦» 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
:Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN+1 


ZZ,ZZ 


CAIE 
STOP* 
HALT    .+1 
JUMPA   .-H 


; Check  that  each  ac  contains  its  own  address 


;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  add 


ress 


*♦•♦♦*♦*♦• 


.-This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.'Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
.-Its  address,  this  test  fails. 


SN=SN*1 


u=zz-^ 

CAIE 
STOP* 
HALT 
JUMPA 


ZZM 


.•Check  that  each  ac  contains  its  own  address 


;Test 
;To  loop 
;In  case 


failed  if  program  halts  here 
op  change  this  instruction* 
se  of  failure,  loop  to  "c500" 


address 


•♦»♦♦»*♦♦•♦ 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 
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SEQ  0034 


1142 

'■•■ 

1143 

000512 

1144 

000006 

1145 

031012 

302  06  0  00  000006 

1146 

1147 

031013 

254  04  0  00  031014 

1148 

031014 

324  00  0  00  031015 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

000513 

1160 

000005 

1161 

031015 

302  05  0  00  000005 

1162 

1163 

031016 

254  04  0  00  031017 

1164 

031017 

324  00  0  00  031020 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

000514 

1176 

000004 

1177 

031020 

302  04  0  00  000004 

1178 

1179 

031021 

254  04  0  00  031022 

1180 

031022 

324  00  0  00  031023 

1181 

; 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

000515 

1192 

000003 

1193 

031023 

302  03  0  00  000003 

1194 

1195 

031024 

254  04  0  00  031025 

1196 

031025 

324  00  0   00  031026 

SN=SNi-1 


ZZ=2Z-1 

CAIE 

STOP* 

HALT 

JUMPA 


Z2,ZZ 

.+1 
.+1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction'' 

;In  case  of  failure,  loop  to  "c500'*  address 


;••*♦•***•• 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
;Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN+1 


ZZ=ZZ-1 

CAIE    ZIM 

STOP* 

HALT    ."H 

JUMPA   .-»-l 


; Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


;*••♦•****• 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN*1 


ZZ=ZZ-1 

CAIE    ZIM 

STOP* 

HALT    .+1 

JUMPA   .-^1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


^•»***»**** 


.-This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.-Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN+1 


ZZ=ZZ'^ 

CAIE    ZZM 

STOP* 

HALT    .-t-l 

JUMPA   .i1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


L 


'~l 
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SEQ  0035 


1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 


031026 

031027 
031030 


000516 
000002 
302  02  0  00  000002 

254  04  0  00  031030 
324  00  0  00  031031 


031031 

031032 
031033 


000517 
000001 
302  01  0  00  000001 

!:>'   04  0  00  031033 
324  00  0  00  031034 


031034 

031035 
031036 


000520 
000000 
302  00  0  00  000000 

254  04  0  00  031036 
324  00  0  00  031037 


;In  case  of  failure,  loop  to  "c500"  address 


;•••♦♦••**• 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN-H 


2Z=ZZ-1 

CAIE    2Z,ZZ 

STOP* 

HALT    .+1 

JUMPA   .+1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


*»*♦♦*••♦• 


;This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN^1 


CAr  ll.ll 

STOF 

HALT  .•••1 

JUMPA  .♦I 


; Check  that  each  ac  contains  its  own  address 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;In  case  of  failure,  loop  to  "c500" 


address 


;»*•♦••*•»• 


.-This  test  verifies  that  all  acs  exist,  first,  each  ac  is 
.•Preloaded  with  its  own  address,  then,  the  contents  of  each 
;Ac  is  checked  for  its  address,  if  any  ac  does  not  contain 
;Its  address,  this  test  fails. 


SN=SN^1 


luii-y 

CAIE  ll.ll 

STOP* 

HALT  .'^1 

JUMPA  .+1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c500"  address 


♦♦♦♦•♦♦♦»♦ 
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SEQ  0036 


1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 


031037 
031040 

031041 
031042 

031043 
031044 

031045 
031046 

031047 
031050 

031051 
031052 

031053 
031054 

031055 
031056 

031057 
031060 

031061 
031062 

031063 
031064 

031065 
031066 

031067 
031070 

031071 
031072 


000600 
000000 


SN=600 


201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 
2ui  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 


000001 
0  00  000001 
0  00  000001 

000002 
0  00  000002 
0  00  000002 

000003 
0  00  000003 
0  00  000003 

000004 
0  00  000004 
0  00  000004 

000005 
0  00  000005 
0  00  000005 

000006 
0  00  000006 
0  00  000006 

000007 
0  00  000007 
0  00  000007 

000010 
0  00  000010 
0  00  000010 

00001 1 
0  00  000011 
0  00  000011 

000012 
0  00  000012 
0  00  000012 

000013 
0  00  000013 
0  00  000013 

000014 
0  00  000014 
0  00  000014 

000015 
0  00  000015 
0  00  000015 

000016 
0  00  000016 
0  00  000016 


ZZ=0 


;This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.-Either  an  ac  or  a  memory  Location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


C600: 
< 


REPEAT 
ZZ=ZZ+1 
MOVE  I 
MOVEM 

MOVE  I 
MOVEM 
ZZ=ZZ+1 
MOVE  I 
MOVEM 

MOVE  I 
MOVEM 

MOVE  I 
MOVEM 

MOVE  I 

MOVEM 

ZZ=ZZ*1 

MOVE  I 

MOVEM 

U=2Z^^ 

MOVE  I 

MOVEM 

ZZ^ZZ^I 

MOVE  I 

MOVEM 

ZZ^ZZ^l 

MOVE  I 

MOVEM 

zz=zz^^ 

MOVE  I 
MOVEM 

zz^zz^^ 

MOVE  I 
MOVEM 

zz=^zz^^ 

MOVE  I 
MOVEM 

zz=zz^^ 

MOVE  I 
MOVEM 

zz=zz^^ 

MOVE  I 
MOVEM 


*D15. 


Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. > 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  a:  with  its  address 
By  referencing  each  ac  as  memory. 

Preload  each  ac  with  its  address 
By  referencing  each  ac  as  memory. 


r 

It 


L-_ 


1 
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SEQ  0037 


r 

Df 
DF 


130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

131A 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

132A 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

13^2 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

13^^^ 

13:>6 

1357 
1358 


031073 
031074 


00001 7 

201  00  0  00  000017 

202  00  0  00  000017 

000020 


031075 

031076 
031077 


000601 
000017 
3ui  17  0  00  000017 

254  04  0  00  031077 
324  00  0  00  031100 


031100 

031101 
031102 


000602 
000016 
302  16  0  00  000016 

254  04  0  00  031102 
324  00  0  00  031103 


ZZ=ZZ^1 
MOVEI   ZZ 
MOVEM   ZZ 

ZZ=20 


.-Preload  each  ac  with  its  address 
;By  referencing  each  ac  as  memory. 


REPEAT  *D15.< 
;This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
; Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


SN=SN+1 


CAIE    2ZM 
STOP 


; Check  that  each  ac  contains  its  own  address 
;In  case  of  failure,  loop  to  "c600"  address 


> 


fklcltitlritltlfk 


.-This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.'Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.'Address,  this  test  fails. 


SN=SN^1 


22=22'^ 

CAIE 

STOP^ 

HALT 

JUMPA 


22M 


.'Check  that  each  ac  contains  its  own  address 

.'Test  failed  if  program  halts  here 

.'To  loop  change  this  instruction* 

.'In  case  of  failure,  loop  to  "c600"  address 


*t***t**** 


.'This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.'Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.'Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
.'Of  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.'Address,  this  test  fails. 


SN=SN+1 


ZZ=ZZ-1 

CAIE    22M 

STOP'' 

HALT    .+1 

JUMPA   ."^l 


; Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  '"c600"  address 


********** 
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SEQ  0058 


DF 
DF 


1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 


031103 

031104 
031105 


.00603 
00001 5 
302  15  0  00  000015 

254  04  0  00  031105 
324  00  0  00  031106 


031106 

031107 
031110 


000604 
000014 
302  14  0  00  000014 

254  04  0  00  031110 
324  00  0  00  031111 


031111 

031112 
031113 


000605 
000013 
302  13  0  00  000013 


254 
324 


04 
00 


0 
0 


00 
00 


031113 
031114 


;This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.-Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


SN=SN+1 


ZZ=2Z-1 

CAIE    ll.ll 

STOP^ 

HALT    .-fl 

JUMPA   .^-1 


;Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


;***•****♦* 


.-This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.'Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.-Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


SN=SN+1 


2Z=2Z-1 

CAIE 

STOP* 

HALT 

JUMPA 


11.21 


.•Check  that  each  ac  contains  its  own  address 

.-Test  railed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


*********** 


.-This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.•Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.'Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


SN=SN+1 


CAIE 
STOP* 
HALT 
JUMPA 


.♦1 
.♦1 


; Check  that  each  ac  contains  its  own  address 


;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  addr 


ess 


tt*******t 


.This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.'Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.-Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 


i0ki/immMmi0mmm 


"■"1 


r — 


~1 
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SEQ  0039 


iOFI 
DFI 


L 


H15 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1465 

1467 

1468 


000606 
000012 

031114  302  12  0  00  000012 

031115  254  04  0  00  031116 

031116  324  00  0  00  031117 


031117  302  11 


000607 
00001 1 
0  00  000011 


031120 
031121 


254  04  0  00  031121 
324  00  0  00  031122 


031122 

031123 
031124 


000610 
000010 
302  10  0  00  000010 

254  04  0  00  031124 
324  00  0  00  031125 


000611 


;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
/Address,  this  test  fails. 


SN=SN+1 


CAIE  ZZ,Z2 

STOP'^ 

HALT  .tl 

JUMPA  .+1 


; Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


********** 


;This  test  verifies  that  an  address  within  the  ac  ranae  may  be  accessed  as 
.-Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


SN=SN+1 


UM 


CAIE 
STOP* 
HALT    .-^1 
JUMPA   .-H 


.'Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

;To  loop  change  tnis  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


********** 


This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
Either  an  ac  or  a  memory  Ication  and  that  either  reference  refers  to  the 
Same  hardware,  each  ac  is  eloaded  with  its  address,  then  the  contents 
^i  each  ac  is  checked  fc  its  address,  if  any  ac  does  not  contain  its 
.Address,  this  test  fails. 


SN=SN+1 


ll.h 


CAIE 
STOP* 
HALT    .•^1 
JUMPA   .-^1 


.-Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


********** 


.-This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.-Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 


;0f  each  ac  is  checked  for 
.Address,  this  test  fails. 

SN=SN*1 


its  address,  if  any  ac  does  not  contain  its 


DFKAD  PDP10  KL10 
DFKAD1     MAC 


BASIC   INSTRUCTION  DIAGNOSTIC    (4)   0,2       MACRO  X53A(1152)   10:53     2-0ct-84  Page  5-4 
1-0ct-84  16:01  TEST  OF  AC  HARDWARE  AND   INDEX  REGISTERS 


1A69 
U70 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
U83 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 


031125 

031126 
031127 


000007 
302  07  0  00  000007 

254  04  0  00  031127 
324  00  0  00  031130 


031130 

031131 
031132 


000612 
000006 
302  06  0  00  000006 

254  04  0  00  031132 
324  00  0  00  031133 


031133 

031134 
031135 


000613 
000005 
302  05  0  00  000005 

254  04  0  00  031135 
324  00  0  00  031136 


031136 
031137 


000614 
000004 
302  04  0  00   000004 

254  04  0  00  031140 


SEQ  0040 


ZZM 


ZZ=ZZ-1 

CAIE 

STOP* 

HALT    .+1 

JUMPA   .+1 


;Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


*•••••*•*♦ 


;This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
;Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
;Address,  this  test  faHs. 


SN=SN+1 


ZZ=ZZ-1 

CAIE    ZZ,ZZ 

STOP* 

HALT    .+1 

JUMPA   .-H 


;Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


'  t-ktlfklflfktlt 


This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
Of  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
Address,  this  test  fails. 


SN=SN+1 


CAIE 
STOP* 
HALT 
JUMPA 


22.22 
.♦1 


.•Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


♦♦♦♦♦♦♦*»» 


;This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.•Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.-Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.•Address,  this  test  fails. 


SN=SN^1 


22=22-1 

CAIE    22J2 

STOP* 

HALT    .+1 


.•Check  that  each  ac  contains  its  own  address 
.-Test  failed  if  program  halts  here 
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152A 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
15o0 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
.575 
1576 
1577 
1578 


SEQ  0041 


031140  324  00  0  00  031141 


031141 

031142 
031143 


000615 
000003 
302  03  0  00  000003 

254  04  0  00  031143 
324  00  0  00  031144 


031144 

031145 
031146 


000616 
000002 
302  02  0  00  00u002 

254  04  0  00  031146 
324  00  0  00  031147 


031147 

031150 
031151 


000617 
000001 
302  01  0  00  000001 

254  04  0  00  031151 
324  00  0   00  031152 


JUMPA   ."H 


;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


♦♦»♦♦**♦♦♦ 


;This  test  verifies  that  an  address  within  the  ac  ranqe  may  be  accessed  as 
.-Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
;Same  hardware,  each  ac  is  preloaded  with  its  address,  then  the  contents 
;0f  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.-Address,  this  test  fails. 


SN=SN'^1 


UM 


CAIE 
STOP* 
HALT    .♦I 
JUMPA   .+1 


.-Check  that  each  ac  contains  its  own  address 

.-Test  failed  if  program  halts  here 

;To  loop  change  this  instruction* 

;In  case  of  failure,  loop  to  "c600"  address 


#*«■*♦«***« 


.-This  test  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.-Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.-Same  hardware,  each  ac  ^'s  preloaded  with  its  address,  then  the  contents 
.-Of  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.-Address,  this  test  fails. 


SN=SN+1 


7Z=ZZ-1 

CAIE 

STOP* 

HALT 

JIWA 


22  J7 

.>1 


.-Check  that  each  ac  contains  its  own  address 

;Test  failed  if  program  ha'ts  here 

;To  loop  cnang>v  this  instruction* 

.-In  case  of  failure,  loop  to  "c600"  address 


*ir*******t 


.-This  lest  verifies  that  an  address  within  the  ac  range  may  be  accessed  as 
.-Either  an  ac  or  a  memory  location  and  that  either  reference  refers  to  the 
.-Same  hardware,  each  ac  is  preloaded  wit^i  its  address,  then  the  contents 
.-Of  each  ac  is  checked  for  its  address,  if  any  ac  does  not  contain  its 
.-Address,  this  test  fails. 


SN=SN*1 


22=22-^ 
CAIE 
STOP* 
HALT 
JUMP  A 


22M 

.♦1 
.♦1 


.-Check  that  each  ac  contains  its  own  address 


Test  failed  if  program  halts  here 
To  loop  change  this  instruction* 
In  case  of  failure,  loop  to  "c600* 


address 


********** 


mmmmtmi 


m»itmmmmiim—»lmm4m 
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SEQ  (Xi^2 
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SEQ  0043 


1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 


000700 
000000 


000701 
000001 

031152  201  01  0  00  000001 

031153  302  01  0  01  000000 


031154  254  04 

031155  324  00 


0  00  031155 
0  00  031156 


000702 
000002 

031156  201  02  0  00  000002 

031157  302  02  0  02  000000 

031160  254  04  0  00  031161 

031161  324  00  0  00  031162 


SN=700 


2Z=0 


C700:   REPEAT  *D15,< 

;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


2Z=ZZ+1 
MOVEI  21M 
CAIE    Z2MI) 
STOP 


.-Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


ZI^2I*^ 

MOVEI 

UM 

CAIE 

UMZ) 

STOP* 

HALT 

.*^ 

JUMP  A 

.-^1 

;Preload  index  register  with  its  address 
.-Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦♦♦»»♦♦♦♦♦ 


.-This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^1 


MOVEI 
CAIE 
STOP* 
HALT 
JUMP  A 


ZZ,7Z 
ZZAZZ) 

.♦1 


.•Preload  index  register  with  its  address 
.-Pass  if  index  register  contains  its  address 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


• ♦♦♦»♦♦♦♦♦» 


.-This  test  verifies  that  the  index  registers  are  accessible,  first,  an 
.•Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


oiMMr 


tutm'mmmmtmtm»mKm 


nmtmmmamtmmmm 


-T_ 
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SEQ  004A 


1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 


031162 
031163 

031164 
031165 


031166 
031167 

031170 
031171 


031172 
031173 

031174 
031175 


031176 
031177 

031200 
031201 


000703 
000003 
201  03  0  00  000003 
302  03  0  03  000000 

254  04  0  00  031165 
324  00  0  00  031166 


000704 
000004 
201  04  0  00  000004 
302  04  0  04  000000 

254  04  0  00  031171 
324  00  0  00  031172 


000705 
000005 
201  05  0  00  000005 
302  05  0  05  000000 

254  04  0  00  031175 
324  00  0  00  031176 


000706 
000006 
201  06  0  00  000006 
302  06  0  06  000000 

254  04  0  00  031201 
324  00  0  00  031202 


SN=SN+1 


Z2=ZZ+1 

MOVE  I 

ll.ll 

CAIE 

HMD 

STOP* 

HALT 

."M 

JUMPA 

.♦1 

;•♦♦*♦•♦*•♦ 

.-Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^1 


MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


HMD 

.+1 


; Pre load  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


> 


.-This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
;Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^1 


ll^U^} 

MOVE  I 

ll.ll 

CAIE 

HMD 

STOP* 

HALT 

.-H 

JUMPA 

.•n 

♦♦♦♦♦♦♦♦♦» 

.-Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


.-This  test  verifies  that  the  index  register*;  are  accessable.  first,  an 
;Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


UM 
Z2MZ) 


.-Preload  index  .-egister  with  its  address 
.-Pass  if  index  register  contains  its  address 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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SEQ  0045 


1690 

1691 

1692 

1695 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 


031202 
031203 

031204 
031205 


000707 
000007 
201  07  0  00  000007 
302  07  0  07  000000 

254  04  0  00  031205 
324  00  0  00  031206 


031206 
031207 

031210 
031211 


000710 
000010 
201  10  0  00  000010 
302  10  0  10  000000 


32^ 


04 
00 


0 
0 


00 
00 


031211 
031212 


031212 
031213 

031214 
031215 


00071 1 
00001 1 
201  11  0  00  000011 
302  11  0  11  000000 


254 
324 


04 
00 


0 
0 


00 
00 


031215 
031216 


•***•***••♦ 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


ZZ=ZZ+1 

MOVE  I 

ll.ll 

CAIE 

HMD 

STOP* 

HALT 

.+1 

JUMP  A 

.-H 

•***♦*••**♦ 

;Preload  index  register  with  itr.  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


ii^ii'^y 

MOVE  I 

ll.ll 

CAIE 

HMD 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

********** 

.•Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
.•Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^1 


luii^y 

MOVEI 

ll.ll 

CAIE 

HMD 

STOP* 

HALT 

."H 

JUMPA 

.-^1 

****<,***** 

;Preload  index  register  with  its  adoress 
;Pass  if  index  register  contains  its  address 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


,This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
.-Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
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SEQ  00A6 


17A5 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 


031216 
031217 

031220 
031221 


031222 
031223 

031224 
031225 


031226 
031227 

031230 
031231 


031232 
031233 


000712 
000012 
201  12  0  00  000012 
302  12  0  12  000000 

254  04  0  00  031221 
324  00  0  00  031222 


000713 
000013 
201  13  0  00  000013 
302  13  0  13  000000 

254  04  0  00  031225 
324  00  0  00  031226 


000714 
000014 
201  14  0  00  000014 
302  14  0  14  000000 

254  04  0  00  031231 
324  00  0  00  031232 


000715 
000015 
201  15  0  00  000015 
302  15  0  15  000000 


;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 
SN=SN+1 


ZZ=ZZ+1 

MOVEI  11,11 

CAIE  HMD 

STOP'^ 

HALT  .+1 

JUMPA  .^-1 


.-Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


•♦*•**••♦♦• 


.-This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
.•Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


MOVEI 

CAIE 

STOP* 

HALT 

JUMPA 


ZIM 
llMl) 

.+1 


.•Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


•♦••♦•**♦♦* 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
.•Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


lUU^} 

MOVEI 

ZZ^ZZ 

CAIE 

ZZAZZ) 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

It -kit  it -kick  it  If  It 

.•Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
.•Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  ts  address,  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SNM 


ZZ^ZZ^^ 
MOVEI       ZZM 
CAIE        ZZAZZ) 
STOP* 


.•Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 
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SEQ  00^7 


1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 


031234 
031235 


254  04  0  00  031235 
324  00  0  00  031236 


HALT 
JUMPA 


>1 
.+1 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


* 


.-This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
; Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


031236 
031237 

031240 
031241 


000716 
000016 
201  16  0  00  000016 
302  16  0  16  000000 

254  04  0  00  031241 
324  00  0  00  031242 


SN=SN^1 


MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


ZZ.ZZ 
ZZAZZ) 

.+1 
.+1 


.•Preload  index  register  with  its  address 
;Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  the  index  registers  are  accessable.  first,  an 
.-Index  register  is  preloaded  with  its  address,  then,  it  is  referenced 
;As  an  index  register,  if  it  contains  its  address,  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


031242 
031243 

031244 
031245 


000717 
000017 
201  17  0  00  000017 
3ui  17  0  17  000000 

254  04  0  00  031245 
324  00  0  00  031246 


SN=SN+1 


zz^zz^y 

MOVEI 

ZZ.ZZ 

CAIE 

ZZAZZ) 

STOP* 

HALT 

.-n 

JUMPA 

.+1 

*t«******* 

.-Preload  index  register  with  its  address 
.-Pass  if  index  register  contains  its  address 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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SEQ   0048 


1837 

001000 

1838 

000000 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

001001 

1864 

000001 

1865 

031246 

201 

01  0  00  000001 

1866 

031247 

50S 

01  0  00  000001 

1867 

031250 

3\^ 

01  0  01  000000 

1868 

1869 

031251 

25; 

04  0  00  031252 

1870 

031252 

324 

00  0  00  031253 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

001002 

1882 

000002 

1883 

031253 

201 

02  0  00  000002 

1884 

031254 

505 

02  0  00  000002 

1885 

031255 

312 

02  0  02  000000 

1886 

1887 

031256 

254 

04  0  00  031257 

1888 

031257 

324 

00  0  00  031260 

1889 

1890 

1891 

SN=1000 


2Z=0 


C1000:  REPEAT  *D15,< 

;This  test  verifies  that  alL  index  reaisters  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.'Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.•Halves,  if  it  contains  ts  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^-1 


MOVEI  UM 

HRLI  ZZM 

CAME  ZZ.(ZZ) 
STOP 


.-Preload  both  halves  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 


> 


********** 


.-This  test  verifies  that  all  index  reaisters  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.•Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.•Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


ZI=2Z^^ 

MOVEI 

ll.ll 

HRLI 

ZZM 

CAME 

ZZAZZ) 

STOP* 

HALT 

.  +  1 

JUMPA 

.  +  1 

********** 

.•Preload  both  halves  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 


.-Test  failed  if 
.•To  loop  change 


program  halts  here 
this  instruction* 


;This  test  verifies  that  all  index  registers  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
; Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.•Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN>1 


ZZ^ZZ^} 

MOVEI 

ZZM 

HRLI 

ZZM 

CAME 

ZZAZZ) 

STOP* 

HALT 

.-^1 

JUMPA 

.'^l 

.-Preload  both  halves  of  index  reg  with  its  address 
.-Pass  if  index  regist?r  contains  its  address 
.-In  both  halves 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 
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SEQ  00A9 


D 
D 


1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

190A 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

192A 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 


031260 
031261 
031262 

031263 
031264 


031265 
031266 
031267 

031270 
031271 


031272 
031273 
031274 

031275 
031276 


001003 
000003 
201  03  0  00  000003 
505  03  0  00  000003 
312  03  0  03  000000 

254  04  0  00  031264 
324  00  0  00  031265 


001004 
000004 
201  04  0  00  000004 
505  04  0  00  000004 
31?  04  0  04  000000 

254  04  0  00  031271 
324  00  0  00  031272 


001005 
000005 
201  05  0  00  000005 
505  05  0  00  000005 
312  05  0  05  000000 

254  04  0  00  031276 
324  00   0  00  031277 


;This  test  verifies  that  all  index  reaisters  index  correctly,  first,  both 
.-Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
; Index  register  is  referenced,  it  is  then  checked  tor  its  address  in  both 
.•Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


21=22^^ 

MOVE  I 

22.22 

HRLI 

22.22 

CAME 

22A22) 

STOP* 

HALT 

.^^ 

JUMPA 

.-^1 

.-Preload  both  halves  of  index  reg  with  its  address 
.-Pass  if  index  register  contains  its  address 
;In  both  halves 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦»♦*»»*»♦* 


.-This  test  verifies  that  all  index  registers  index  correctly,  first,  both 
.-Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.'Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.-Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


22=22^^ 

MOVE  I 

HRLI 

CAME 

STOP'^ 

HALT 

JUMPA 


22.22 
22.22 
22.(22) 


.-Preload  both  halves  of  index  reg  with  its  address 
.-Pass  if  index  register  contains  its  address 
;In  both  halves 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


^«*t*****«* 


.-This  test  verifies  that  all  index  registers  index  correctly,  first,  both 
.-Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.-Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.-Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


22=22*) 

MOVE  I 

22.22 

HRLI 

22.22 

CAME 

22.(22) 

srop* 

HALT 

.-^1 

JUMPA 

.H 

.-Preload  both  halves  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


#**#*****« 


DFKAD  PDP10  KL10  BASIC  INSTRUCTION  DIAGNOSTIC  (A)  0,2   MACRO  X53A(1152)  10:53  2-0ct-84  Page  l-l 
DFKAD1  MAC      l-Gct-SA  16:01        TEST  OF  AC  HARDWARE  AND  INDEX  REGISTERS 

;This  test  verifies  that  all  index  reaisters  index  correctly,  first,  both 
.•Halves  of  the  ^'rdex  register  are  preloaded  with  its  address,  then,  the 
; Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.-Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SEQ  0050 


Di 
Dl 


19A7 

19A8 

19A9 

1950 

1951 

1952 

1953 

001006 

1954 

000006 

1955 

031277 

201 

06  0  00  000006 

1956 

031 300 

505 

06  0  00  000006 

1957 

031301 

312 

06  0  06  000000 

1958 

1959 

031302 

254 

04  0  00  031303 

1960 

031303 

324 

00  0  00  031304 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

001007 

1972 

000007 

1973 

031304 

201 

07  0  00  000007 

1974 

031305 

505 

07  0  00  000007 

1975 

031306 

312 

07  0  07  000000 

1976 

1977 

031307 

04  0  00  031310 

1978 

031310 

324 

00  0  00  031311 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

001010 

1990 

000010 

1991 

031311 

201 

10  0  00  000010 

1992 

031312 

505 

10  0  00  0C0010 

1993 

031313 

312 

10  0  10  000000 

1994 

1995 

031314 

254 

04  0  00  031315 

1996 

031315 

324 

00  0  00  031316 

1997 

1998 

1999 

2000 

2001 

SN=SN+1 


ii^ii^y 

MOVE  I 

ll.ll 

HRLI 

ll.ll 

CAME 

llAll) 

STOP* 

HALT 

.+1 

JUMPA 

.-H 

********** 

.•Preload  both  halves  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  all  index  reaisters  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.•Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.•Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


u^ii^y 

MOVE  I 

21,22 

HRLI 

22.22 

CAME 

22A22) 

STOP* 

HALT 

.*1 

JUMPA 

,^^ 

.-Preload  both  halves  of 
.-Pass  if  index  register 
;In  both  halves 


index  reg  with  its  address 
contains  its  address 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  all  index  reaisters  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.•Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.•Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


22=22^y 

MOVE  I 

22.22 

HRLI 

22.22 

CAME 

22.(22) 

STOP* 

HALT 

.M 

JUMPA 

.♦1 

.-Preload  both  halves  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test  verifies  that  all  index  registers  index  correctly,  first,  both 


»*»■ 
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SEQ  0051 


2002 
2003 
200A 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
20U 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
203A 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 


031316 
031317 
031320 

031321 
031322 


031323 
031324 
031325 

031326 
031327 


031330 
031331 
031332 

031333 
031334 


001011 
00001 1 
201  11  0  00  000011 
505  11  0  00  000011 
312  11  0  11  000000 

254  04  0  00  031322 
324  00  0  00  031323 


001012 
000012 
201  12  0  00  000012 
505  12  0  00  000012 
312  12  0  12  000000 

254  04  0  00  031327 
3^     00  0  00  031330 


001013 
000013 
201  13  0  00  000013 
505  13  0  00  000013 
312  13  0  13  000000 

254  04  0  00  031334 
324  00  0  00  031335 


.-Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.•Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.-Halves,  if  it  contains  its  address  in  both  fialves  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


DF 
DF 


SN=SN+1 


12=21*1 

MOVE  I 

22.22 

HRLI 

22.22 

CAME 

22A22) 

STOP'' 

HALT 

.*y 

JUMPA 

.♦1 

.-Preload  both  halves  of  index  reg  with  its  address 
.-Pass  if  index  register  contains  its  address 
;In  both  halves 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


♦♦♦♦♦*»♦♦♦ 


.-This  test  verifies  that  all  index  reaisters  index  correctly,  first,  both 
.-Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
.-Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.-Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^1 


22=22*y 

MOVE  I 

22.22 

HRLI 

22.22 

CAME 

22.(22) 

STOP* 

HALT 

.-^1 

JUMPA 

.il 

.•Preload  both  halves  of  index  reg  with  its  address 
.-Pass  if  index  register  contains  its  address 
;In  both  halves 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


**4r******t 


.-This  test  verifies  that  all  index  registers  index  correctly,  first,  both 
.'Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
; Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.-Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
.-This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN*1 


22=22*1 

MOVE  I 

22.22 

HRLI 

22.22 

CAME 

22.(22) 

STOP* 

HALT 

.♦1 

JUMPA 

.^1 

.•Preload  both  halves  of 
;Pass  if  index  register 
;In  both  halves 


index  reg  with  its  address 
contains  its  address 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


*t*****t** 


;This  test  verifies  that  all  index  registers  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 


r 
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SEQ  0052 


DF 
DF 


2057 

2058 

2059 

2060 

2061 

2062 

2063 

206A 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 


031335 
031336 
031337 

031 340 
031341 


031342 
031343 
031344 

031345 
031346 


031347 
031350 
031351 

031352 
031353 


001014 
000014 
201  14  0  00  000014 
505  14  0  00  000014 
312  14  0  14  000000 

254  04  0  00  031341 
324  00  0  00  031342 


001015 
000015 
201  15  0  00  000015 
505  15  0  00  000015 
312  15  0  15  000000 

254  04  0  00  031346 
324  00  0  00  031347 


001016 
000016 
201  16  0  00  000016 
505  16  0  00  000016 
312  1u  0  16  000000 

254  04  0  00  031353 
324  00  0  00  031354 


; Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
;Halves.  if  it  contains  its  address  in  bcth  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


ZZ=ZZ+1 

MOVE  I 

HRLI 

CAME 

STOP^ 

HALT 

JUMPA 


ll.ll 
UM 
llAll) 

.+1 


.•Preload  both  halves  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction'' 


j******t*** 


;This  test  verifies  that  *ll  index  registers  index  correctly,  first,  both 
;Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
; Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
;Halves.  if  it  contains  its  address  in  both  hilves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN+1 


PIOVEI 

KRLI 

CAME 

STOP^ 

HALT 

JUMPA 


ZZM 
ZIM 
llAU) 


.•Preload  both  halves  of 
.-Pass  if  index  register 
;In  both  halves 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


index  reg  with  its  address 
contains  its  address 


;This  test  verifies  that  all  index  reaisterr.  index  correctly,  fi'-st,  both 
.-Halves  of  the  index  registv?r  are  preloaded  with  its  address,  then,  the 
.•Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
.•Halves,  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SN=SN^1 


^u^l^^ 

MOVE  I 

UM 

HRLI 

UM 

CAME 

UAU) 

STOP* 

HALT 

.-n 

JUMPA 

.+1 

ttt***tt*« 

.'Preload  both  halves  of  index  reg  with  its  address 
.-Pass  if  index  register  contains  its  address 
;In  both  halves 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.This  test  verifies  that  all  inde^  registers  index  correctly,  first,  both 
.•Halves  of  the  index  register  are  preloaded  with  its  address,  then,  the 
; Index  register  is  referenced,  it  is  then  checked  for  its  address  in  both 
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;Hal\/es.  if  it  contains  its  address  in  both  halves  this  test  passes. 
;This  test  is  repeated  15  times  in  order  to  test  each  index  register. 


SEQ  0053 


2112 

2113 

21U 

2115 

001017 

2116 

000017 

2117 

031 35A 

201 

17 

0  00  000017 

2118 

031355 

505 

17 

0  00  000017 

2119 

031356 

312 

17 

0  17  000000 

2120 

2121 

031357 

254 

04 

0  00  031360 

2122 

031360 

324 

00 

0  00  031361 

2123 

212A 

2125 

SN=SN+1 


ll^u^^ 

MOVE  I 

IIM 

HRLI 

IIM 

CAME 

llMl) 

STOP* 

HALT 

.+1 

JUMPA 

.  +  1 

;Preload  both  hal\/es  of  index  reg  with  its  address 
;Pass  if  index  register  contains  its  address 
;In  both  halves 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦♦••**#*♦* 


I u. 


DFKAD  PDP10  KUO 

DFKAD1 

MAC 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

031361 

2138 

031362 

2139 

031363 

21A0 

031364 

2141 

031365 

2142 

2143 

031366 

2144 

031367 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2^R 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2^70 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
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SUBTTL  TEST  OF  INDEX  REGISTER  ADDRESSING 

;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  0,  the  final  result  in  ac3  should  be  0.  if 
;C(ac3)=0,  this  test  passes. 


SEQ  0054 


476  00  0  00  000003 
4o2  00  0  00  000001 
201  02  0  00  000001 
200  03  0  02  000000 
332  00  0  00  000003 

254  04  0  00  031367 
324  00  0  00  031370 


001200 
000000 


001201 
000000 


C1100: 


SETOM 

3 

SETZM 

1 

MOVE  I 

2,1 

MOVE 

3,(2) 

SKIPE 

3 

STOP* 

HALT 

.*1 

JUMPA 

.-^1 

.-Preload  ac3  with  -1,,1 
;Pr-l  ad  scl  with  0 
.-Setup  index  register  2  with  1 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


It  It  It  it  it  t  ■kit  it* 


SN=1200 


ZZ=0 


C1200:  REPEAT  *D18.< 

.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  usinq  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  '  and 
;AcT  wds  preloaded  with  a  floating  1.  the  final  re«  ilt  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=d  floating  1.  this  test  passes. 


SN=SM^1 


2Z=Z2> 

11 

IFE 

U 

.<ll-- 

0> 

SETOM 

3 

MOVE  I 

1. 

21 

MOVE  I 

2. 

1 

MOVE 

3, 

(.2) 

CAIE 

3, 

17 

STOP 

.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 


**t**tttt« 


.-This  test  verifies  that  index  register  addressing  functions  correct Iv. 
;In  this  test,  a  move  instruction  using  indexing  is  execute J.  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN*1 


11=21^11 


L- 


'■'"1 
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SEQ   0055 


2181 

2182 

2183 

21 8A 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

21 9A 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

220A 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

222^ 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

223A 

2235 


031370 
031371 
031372 
031373 
031374 

031375 
031376 


031377 
031400 
03140i 
031402 
031403 

031404 
031405 


031406 
031407 
031410 
031411 
031412 

031413 
031414 


000001 
476  00  0  00  000003 
201  01  0  00  000001 
201  02  0  00  000001 
200  03  0  02  000000 
302  '•3  0  00  000001 

254  04  0  00  031376 
324  00  0  00  031377 


001202 
000002 

476  00  0  00  000003 
201  01  0  00  000002 
201  02  0  00  000001 
200  3  0  02  000000 
302  U3  0  00  000002 

254  04  0  00  031405 
3^'   00  0  00  031406 


001203 
000004 

476  00  0  00  000003 
201  01  0  00  000004 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  000004 

254  04  0  00  031414 
324  00  0   00  031415 


tt*t*t**** 


IFF 

ZZ,<Z2=1> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2J 

MOVE 

3,(2) 

CAIE 

3,ZZ 

STOP* 

HALT 

.^1 

JUMP  A 

."H 

;Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
; Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed-  the  move 
Instruction  should  place  the  contents  of  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
Floating  1.  if  c(bc3)=a  floating  1,  this  test  passes. 


SN=SN^1 


21=12* 

22 

IFE 

ZZ,<ZZ=1> 

SETOM 

3 

MOVE  I 

^M 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAIE 

3,ZZ 

S  OP* 

HALT 

,-H 

JUMP  A 

4.) 

;**«******* 

.•Preload  ac3  with  -1,,-1 
.•Preload  ad  with  floating 
; Setup  index  register 
.•♦Fwt  from  indexed  location 
;Test  indexing 


1 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  veri 
;In  this  test,  a 


es  that  index  register  addressing  functions  correctly. 


move  instruction  using  indexing  is  executed,  the  move 
.•Instruct ion, should  place  the  contents  or  the  location  specified  by  index 


2  into  ac3.  since  inaex  register  2  was  preloaded  with  a  1 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  shoul 
.•Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


and 


SN=SN*1 


22=22* 

22 

IFE 

ZZ,<ZZ=1> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3.(2) 

CAIE 

3,ZZ 

STOP* 

HALT 

.0 

JUMPA 

.-^1 

.•Preload  ac3  with  -1,,-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
.•*Fwt  from  iridexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.•lo  loop  change  this  instruction* 


ttttitllitlttlt 
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SEQ  0056 


2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

22^4 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2211 

2211 

22m 

2215 

221t 

2211 

221S 

2219 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 


031415 
031416 
031417 
031420 
031421 

031422 
031423 


031424 
031425 
031426 
031427 
031430 

031431 
031432 


001204 
000010 

476  00  0  00  000003 
201  01  0  00  000010 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  000010 

254  04  0  00  031423 
324  00  0  00  031424 


001205 
000020 

476  00  0  00  000003 
201  01  0  00  000020 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  000020 

254  04  0  00  031432 
324  00  0  00  031433 


001206 
000040 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 

SN=SN+1 


.-Preload  ac3  with  -1..-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

Test  failed  if 


Z2=ZZ> 

Z2 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVE  I 

^M 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAIE 

IM 

STOP* 

HALT 

.+1 

JUMPA 

.•H 

.-To  loop  c 


ed  if  program  halts  here 
hange  this  instruction* 


**t«****tt 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN+1 


IFE 

SETOM 

MOVE  I 

MOVE  I 

MOVE 

CAIE 

STOP* 

HALT 

JUMPA 


ZZ.<ZZ=1> 

1,ZZ 

2.1 

3.(2) 

3.ZZ 

.  +  1 


.-Preload  ac3  with  -1..-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


;•*♦•♦♦*♦*»» 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN>1 


22=22*22 


1 
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SEQ  0057 


2291 
2292 
2293 
229A 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
230A 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
23U 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
232A 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
23A0 
23A1 
23A2 
23A3 
23AA 
23A5 


03H33 
03U3A 
031A35 
031 A36 
031A37 

031 AAO 
031AA1 


031 AA2 
031AA3 
031AAA 
031AA5 
031 AA6 

031AA7 
031A50 


031A51 
031A52 
031A53 
031A5A 
031A55 

031A56 
031A57 


A76  00  0  00  000003 
201  01  0  00  OOOOAO 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  OOOOAO 

25A  OA  0  00  031 AA1 
32A  00  0  00  031 AA2 


001207 
000100 

A76  00  0  00  000003 
201  01  0  00  000100 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  000100 

25A  OA  0  00  031A50 
5^"  00  0  00  031A51 


001210 
000200 

A76  00  0  00  000003 
201  01  0  00  000200 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  000200 

25A  OA  0  00  031A57 
32A  00  0  00  031 A60 


IFE 

SETOM 

MOVE  I 

MOVE  I 

MOVE 

CAIE 

STOP^ 

HALT 

JUMPA 


ZZ,<Z2=1> 

3 

1,ZZ 

2,1 

3,(2) 

3,ZZ 


;Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
; Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction^ 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  nove  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  oT  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
:AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 

SN=SN^1 


22=22^21 

IFE 

SETOM 

MOVE  I 

MOVE  I 

MOVE 

CAIE 

STOP^ 

HALT 

JUMPA 


ZZ,<ZZ=1> 

1,ZZ 
2,1 
3,(2) 
3,ZZ 

.-H 


.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.'Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction*" 


•Klfklclckliltitlt 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN^1 


22=22* 

22 

IFE 

ZZ,<ZZ=1> 

SETOn 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3.(2) 

CAIE 

3,ZZ 

STOP* 

HALT 

.+1 

JUMPA 

.-^1 

♦♦#♦♦♦*♦♦♦ 

.•Preload  ac3  with  -l.,-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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SEQ  0058 


2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 


031460 
031461 
031462 
031463 
031464 

031465 
031466 


001211 
000400 

476  00  0  00  000003 
201  01  0  00  000400 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  000400 

254  04  0  00  031466 
324  00  0  00  031467 


031467 
031470 
031471 
031472 
031473 

031474 
031475 


001212 
001000 

476  00  0  00  000003 
201  01  0  00  001000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  001000 

254  04  0  00  031475 
324  00  0  00  031476 


001213 
002000 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  dc3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1.  this  test  passe? 


SN=SN+1 


luum 

IFE 

SETOM 

MOVE  I 

MOVE  I 

MOVE 

CAIE 

STOP* 

HALT 

JUMPA 


ZZ.<ZZ=1> 

^M 
2.1 
3.(2) 
3.ZZ 

.+1 


.•Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;*•♦••*•••• 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  or  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
:AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN^1 


11=11^12 

IFE 

U.<1U}> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAIE 

3.ZZ 

STOP* 

HALT 

.+1 

JUMPA 

.-H 

t  it  It  it  It  tt  tit  If 

.•Preload  ac3  with  -1..-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.'This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN*1 


lUll^ll 
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SEQ  0059 


2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 


031476 
031477 
031 500 
031501 
031 502 

031503 
031 504 


031505 
031506 
031507 
031510 
031511 

031512 
031513 


031514 
031515 
031516 
031517 
031520 

031521 
031522 


476  00  0  00  000003 
201  01  0  00  002000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  002000 

254  04  0  00  031504 
324  00  0  00  031505 


001214 
004000 

476  00  0  00  000003 
201  01  0  00  004000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  004000 

254  04  0  00  031513 
Ic-   00  0  00  031514 


001215 
010000 

476  00  0  00  000003 
201  01  0  00  010000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  010000 

254  04  0  00  031522 
324  00  0  00  031523 


IFE 

ZZ,<ZZ=1> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAIE 

3,ZZ 

STOP'' 

HALT 

.+1 

JUMPA 

.+1 

;*•*•♦•♦•♦* 

;Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
; Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  of  the  location  specified  by  index 
jReaister  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN^1 


IFE 

SETOM 

MOVE  I 

MOVE  I 

MOVE 

CAIE 

STOP'' 

HALT 

JUMPA 


ZZ,<ZZ=1> 

1,ZZ 
2,1 
3,(2) 
3,ZZ 


.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦♦*••*♦••♦ 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
Instruction  should  place  the  contents  of  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN*1 


lUll^ 

11 

IFE 

U,<ZZ^^> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAIE 

3,ZZ 

STOP* 

HALT 

.M 

JUMPA 

.-^1 

.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.'Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦»♦♦♦♦♦♦♦» 


J 
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SEQ  0060 


2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

''498 

J  499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 


031523 
031524 
031525 
031526 
031527 

031530 
031531 


031532 
031533 
031534 
031535 
031536 

031537 
031540 


001216 
020000 

476  00  0  00  000003 
201  01  0  00  020000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  020000 

254  04  0  00  031531 
324  00  0  00  031532 


001217 
040000 

476  00  0  00  000003 
201  01  0  00  040000 
201  02  0  00  000001 
200  03  0  02  000000 
302  C3  0  00  040000 

254  04  0  00  031540 
324  00  0  00  031541 


001220 
100000 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  or  the  location  specified  by  index 
;Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(3c3)=a  floating  1.  this  test  passes. 


SN=SN+1 


ZZ=2Z+ 

zz 

IFE 

ZZ.<2Z=1> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAIE 

3.ZZ 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

♦•♦♦♦♦•*•• 

.•Preload  ac3  with  -1..-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  or  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1.  this  test 


passes. 


SN=SN+1 


ZZ=ZZ^ 

ZZ 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVE  I 

1.ZZ 

MOVE  I 

2J 

MOVE 

3.(c^) 

CAIE 

3.ZZ 

STOP* 

HALT 

."H 

JUMPA 

.  +  1 

♦♦*♦♦♦♦••♦ 

.•Preload  ac3  with  -1..-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.•AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN+1 


ZZ=ZZ^Z2 
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2511 

2512 

2513 

251A 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

252A 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

253A 

2535 

2536 

2537 

2538 

2539 

25A0 

25A1 

25A2 

25A3 

25AA 

25A5 

25A6 

25A7 

25A8 

25A9 

2550 

2551 

2552 

2553 

255A 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

256A 

2565 


031 5A1 
031 5A2 
031 5A3 
031 5AA 
031 5A5 

031 5A6 
031 5A7 


031550 
031551 
031552 
031553 
031 55A 

031555 
031556 


031557 
031560 
031561 
031562 
031563 

031 56A 
031565 


A76  00  0  00  000003 
201  01  0  00  100000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  100000 

25A  OA  0  00  031 5A7 
32A  00  0  00  031550 


001221 
200000 

A76  00  0  00  000003 
201  01  0  00  200000 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  200000 

25A  OA  0  00  031556 
Ic   00  0  00  031557 


001222 
AOOOOO 

A76  00  0  00  000003 
201  01  0  00  AOOOOO 
201  02  0  00  000001 
200  03  0  02  000000 
302  03  0  00  AOOOOO 

25A  OA  0  00  031565 
32A  00  0  00  031566 


IFE 

ZZ,<Z2=1> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

i'l 

MOVE 

3,(2) 

CAIE 

3,ZZ 

STOP'^ 

HALT 

.'^l 

JUMPA 

.+1 

2-0ct-8A  Page  %-7 


;Preload  dc3  with  -1,,-1 
;Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


SEQ  0061 


♦•*♦♦♦♦♦** 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  or  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
:AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SNt1 


U=U^ 

U 

IFE 

ii.<ii^y> 

SETOM 

3 

MOVE  I 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAIE 

3,ZZ 

STOP* 

HALT 

.tl 

JUMPA 

.•H 

.'Preload  ac3  with  -l.,-l 
.'Preload  ad  with  floating  1 
.'Setup  index  register 
;*Fwt  from  indexed  location 
.'Test  indexing 

.'Test  failed  if  program  halts  here 
.'To  loop  change  this  instruction* 


********** 


.'This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  oT  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.'Ac  I  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN^1 


II^IU 

U 

IFE 

11.<IW\> 

SETOM 

3 

MOVE  I 

y.u 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAIE 

3.ZZ 

STOP* 

HALT 

.♦1 

JUMPA 

.♦1 

.'Preload  ac3  with  -1..-1 
.'Preload  ad  with  floating 
.'Setup  index  register 
;*Fwt  from  indexed  location 
.'Test  indexing 


1 


.'Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


**•***#•** 
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2566 


L 


L_ 
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2567 

001300 

2568 

000000 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

' 

2593 

2594 

2595 

2596 

2597 

2598 

001301 

2599 

000000 

2600 

000001 

2601 

031566 

476 

00  0  00  000003 

2602 

031567 

205 

01  0  00  000001 

2603 

031570 

201 

02  0  00  000001 

2604 

031571 

200 

03  0  02  000000 

2605 

031572 

312 

03  0  00  034421 

2606 

2607 

031573 

254 

04  0  00  031574 

2608 

031574 

324 

00  0  00  031575 

2609 

2610 

2611 

'',■'■■'■ 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

001302 

2621 

000002 

SN=1300 


ZZ=0 


C1300:  REPEAT  ^D18,< 

;This  test  wen* ties  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN^1 


u=n^ 

U 

IFE 

ZZ.<Z2=1> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP 

*«••••*•*• 

.•Preload  ac3  with  -1..-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
.•♦Fwt  from  indexed  location 
;Test  indexing 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  OT  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
:AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN+1 


ZZ=Z2* 

U 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVSI 

^M 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

.-H 

JUMPA 

.+1 

*»***»♦*** 

.•Preload  ac3  with  -1.,-1 
.•Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  movt  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN+1 


U=ZI^2I 


SEQ  0063 


1 

\ 

i 

^ 

D 

:D 
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SEQ  006A 


D 


2622 
2623 
262A 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
263A 
2635 
2636 
2637 
2638 
2639 
26A0 
2641 
26A2 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2601 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 


031575 
031576 
031577 
031600 
031601 

031602 
031603 


031604 
031605 
031606 
031607 
031610 

031611 
031612 


031613 
0316K 
031615 
031616 
031617 

031620 
031621 


476  00  0  00  000003 
205  01  0  00  000002 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034422 

254  04  0  00  031603 
324  00  0  00  031604 


001303 
000004 

476  00  0  00  000003 
205  01  0  00  000004 
201  02  0  00  C00001 
200  03  0  02  000000 
312  03  0  00  034423 

254  04  0  00  031612 
5^  00  0  00  031613 


001304 
000010 

476  00  0  00  000003 
205  01  0  00  000010 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034424 

254  04  0  00  031621 
324  00  0  00  031622 


IFE 

Z2,<ZZ=1> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ,,0] 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

*t««t***** 

;Prel.oad  ac3  with  -1,,-1 
;Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.•Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.•This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  or  the  location  specified  by  index 
;ReQister  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN*1 


U=ZZ^ 

II 

IFE 

ZZ,<ZZ=1> 

SETOM 

3 

MOVSI 

^M 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ,,03 

STOP* 

HALT 

."^1 

JUMPA 

.-H 

;Preload  ac3  with  -1,,-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test  verifies  that  index  register  addressing  functions  cor'-ectly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  or  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN>1 


ZI=U* 

22 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVSI 

1.ZZ 

MOVE  I 

2,1 

MOVE 

3.(2) 

CAME 

3.CZZ,.0] 

STOP* 

HALT 

.<^ 

JUMPA 

.♦1 

.•Preload  ac3  with  -1,,-1 
.•Preload  ad  with  floating  1 
.'Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  inctruction* 


********** 
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SEQ  0065 


2677 

2678 

2679 

2680 

2681 

2682 

2683 

268A 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2122 

2721 

272^ 

2725 

272t 

2727 

272S 

2729 

2710 

2731 


031622 
031623 
031624 
031625 
031626 

031627 
031630 


031631 
031632 
031633 
031634 
031635 

031636 
031637 


001305 
000020 

476  00  0  00  000003 
205  01  0  00  000020 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034425 

254  04  0  00  031630 
324  00  0  00  031631 


001306 
000040 

476  00  0  00  000003 
205  01  0  00  000040 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034426 

254  04  0  00  031637 
324  00  0  00  031640 


001307 
OOO'M 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  or  the  location  specified  Dy  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN+1 


Z2=ZZ^Z2 

IFE 

SETOM 

MOVSI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


ZZ,<ZZ=1> 

1,ZZ 
2,1 
3,(2) 
3,CZZ,,0] 


.•Preload  ac3  with  -1,.-1 
.•Preload  ad  with  floating  1 
.Setup  index  regi:.cer 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;  Idck-klfklcklck 


;This  test  ve>  ifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  o:  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1,  this  test 


passes. 


SN=SN+1 


lUll^ 

11 

IFE 

7.i.<u=y> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ.,0] 

STOP* 

HALT 

.-^1 

JUMPA 

.-^1 

t****t**t* 

.•Preload  ac3  with  -1,,-1 
.-Preloaa  acl  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.•Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressifig  functions  correctly. 
;In  this  test,  a  move  inst«^uction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  tfie  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;Aci  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.•Floating  1,  if  c(ac3)=a  floating  1.  this  test  passes. 


SN^SN^I 


n=22^U 


DFKAD  PDP10  KlIO  BASK  INSTRUCTION  DIAGNOSTIC  (4)  0,2       MACRO  X53A(1152)  10:53  2-Cct-8A  Page  9-3 
DFKAD1  MAC      1-0ct-84  16:01        TEST  OF  INDEX  REGISTER  ADDRESSING 


SEQ  0066 


2732 
2733 
273A 
2735 
2736 
2737 
2738 
2739 
27A0 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
1771 
2771. 
277^ 
277 1 
2777 
277^ 
2779 
2780 
27i1 
2782 
2783 
2784 
2785 
2786 


031640 
031641 
031642 
031643 
031644 

031645 
031646 


031647 
031650 
031651 
031652 
031653 

031654 
031655 


031656 
031657 
031660 
031661 
031662 

031663 
031664 


476  00  0  00  000003 
205  01  0  00  000100 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034427 

254  04  0  00  031646 
324  00  0  00  031647 


001310 
000200 

476  00  0  00  000003 
205  01  0  00  000200 
201  02  0  00  OOOCvl 

200  o::  0  02  000000 

312  03  0  00  034430 

254  04  0  00  031655 
5^'  CO  0  00  031656 


001311 
000400 

476  00  0  00  000003 
205  01  0  00  000400 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034431 

254  04  0  00  031664 
324  00  0  00  031665 


IFE 

ZZ,<ZZ=1> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ,,0] 

STOP* 

HALT 

."H 

JUMP  A 

.+1 

♦**•*•*♦*♦ 

;Preload  ac3  with  -1,,-1 
;Preload  ad  with  floating  1 
; Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN-SN+1 


lull^ 

U 

m 

2I,<2Z^}> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

.-^1 

JUMPA 

.-H 

.-Preload  ac3  with  -1..-1 
;Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


1t*itit1tt1t1lit1t 


.This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-Act  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 

SN-SN^-I  • 


U=ZI^ 

ZZ 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3,(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

.♦t 

JUMPA 

.•^1 

.-Preload  ac3  with  -1  ..-1 
.-Preload  ad  with  floating 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 


1 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


t****«*t** 
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SEQ  0067 


2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2813 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 


031665 
031666 
031667 
031670 
031671 

031672 
031673 


031674 
031675 
031676 
031677 
031700 

031701 
031702 


001312 
001000 

476  00  0  00  000003 
205  01  0  00  001000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034432 

254  04  0  00  031673 
324  00  0  00  031674 


001313 
002000 

476  00  0  00  0C0003 
205  01  0  00  002000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034433 

254  04  0  00  031702 
324  00  0  00  031703 


001314 
004000 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 

SN=SN+1 


.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction'' 


u=u* 

12 

IFE 

Z2,<ZZ=1> 

SETOM 

3 

MOVSI 

1,ZZ 

WOVE  I 

2,1 

MOVE 

3.(2) 

CAME 

3,cz:,,o] 

STOP* 

HALT 

."^1 

JUMPA 

.+1 

»♦♦♦♦♦♦♦** 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;Aci  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 


SN=SN^1 


U=ZI^ 

21 

IFE 

ZZ,<ZZ=1> 

SETOM 

T 

MOVSI 

1,2Z 

MOVE  I 

2,'. 

MOVE 

3,(2) 

CAME 

3,CZZ,,0] 

STOP'* 

HALT 

.>1 

JUMPA 

.*1 

.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
.-♦Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  Chis  instruction* 


inniiititttt\ 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Registv?r  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1,  the  final  result  in  ac3  should  be  a 
.-Floating  1.  if  c(ac3)=a  floating  1,  this  test  pi 


passes. 


SN=SN^1 


22=22*22 


— I 

i 
I 
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SEO  0068 


28A2 

2843 

031703 

2844 

031704 

2845 

031705 

2846 

031706 

2847 

031707 

2848 

2849 

031710 

2850 

031711 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

031712 

2866 

031713 

2867 

031714 

2868 

031715 

2869 

031716 

2870 

2871 

031717 

2872 

031720 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

031721 

2888 

031722 

2889 

031723 

2890 

031724 

2891 

031725 

2892 

2893 

031726 
031727 

2894 

2895 

2896 

476  00  0  00  000003 
205  01  0  00  004000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034434 

254  04  0  00  031711 
324  00  0  00  031712 


001315 
010000 

4/6  00  0  00  000003 
205  01  0  00  01000C 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034435 

254  04  0  00  031720 
5.:  00  0  00  031721 


0C1316 
020000 

476  00  0  00  000003 
205  01  0  00  020000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034436 


\ 


54  04  0  00  031727 
24  00  0  00   031730 


IFE 

ZZ,<ZZ=1> 

SETOM 

3 

MOVSI 

^M 

MOVE  I 

i'l 

MOVE 

3,^2) 

CAME 

3,CZZ,,0] 

STOP* 

HALT 

.-n 

JUMPA 

.-n 

********** 

.-Preload  ac3  with  -1,,-1 
;Preload  ad  with  floating  1 
; Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 

SN=SN*1 


ZZ=U^ 

22 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVSI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

.•M 

JUMPA 

.+1 

.•Preload  ac3  with  -1,.-1 
.'Preload  ad  with  floating  1 
.'Setup  index  register 
;*Fwt  from  indexed  location 
.'Test  indexing 

.'Test  failed  if  program  halts  here 
.'To  loop  change  this  instruction* 


********** 


.'This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.'Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN*1 


22^22* 

22 

IFE 

ZZ.<ZZ=1> 

SETOM 

5 

MOVSI 

1,ZZ 

MOVE  I 

i'1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

."^1 

JUMPA 

.+1 

*********** 

.'Treload  ac3  with  -1,,-1 
.'Preload  ad  with  floating  1 
.'Setup  index  register 
.'•Fwt  from  indexed  location 
;Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


DFKAD  PDP10  KlIO  BASIC  INSTRUCTION  DIAGNOSTIC  (A)  0-2   MACRO  X53A(n52)  10:53  2-0ct-8A  Page  9-6 
DFKAD1  MAC      1-0ct-84  16:01        TEST  OF  INDEX  REGISTER  ADDRESSING 


SEQ  0069 


2897 

2898 

2899 

2900 

2901 

2902 

2903 

290A 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

29U 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 


031730 
031731 
031732 
031733 
031734 

031735 
031736 


031737 
031740 
031741 
031742 
031743 

031744 
031745 


001317 
040000 

476  00  0  00  000003 
205  01  0  00  040000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034437 

254  04  0  00  031736 
324  00  0  00  031737 


001320 
100000 

476  00  0  00  000003 
205  01  0  00  100000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034440 

254  04  0  00  031745 
324  00  0  00  031746 


001321 
200000 


;This  test 


verifies  that  index  register  addressing  functions  correctly. 
.s.     -•— *.-...^.-^-  ..-.• —  .--j^^.- —  .-  executed,  the  move 

by  index 

th  a  1  and 

;hould  be  a 


SN=SN+1 


u=u* 

12 

IFE 

ZZ,<ZZ=1> 

SETO« 

3 

novsi 

1,ZZ 

MOVE  I 

2J 

novE 

3,(2) 

CAME 

3,CZZ,,0] 

STOP* 

HALT 

.♦1 

JUMP  A 

."^1 

.•Preload  ac3  with  -1,.-1 
;Preload  ad  with  floating  1 
; Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
:AcT  was  preloaded  with  a  floating  1.  the  final  result  in  ac3  should  be  a 
.•Floating  1.  if  c(ac3)=a  floating  1.  this  test  passes. 


SN=SN*1 


11=21* 

11 

IFE 

ZZ.<ZZ=1> 

SETOM 

3 

MOVSI 

1.ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

.♦1 

JUMP  A 

.-►1 

.•Preload  ac3  with  -1..-1 
.•Preload  ad  with  floating  1 
.•Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  l  move  instruction  using  indexing  is  executej.  the  move 
Instruction  should  place  the  contents  of  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
AcT  was  preloaded  with  a  floating  1,  the  final  result  in  dc3  should  be  a 
Floating  1.  if  c(ac3)=a  floating  1,  this  test  passes. 

SN=SN*1 


11=11*12 
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SEQ  0070 


2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
296A 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 


031746 
031747 
031750 
031751 
031752 

031753 
031754 


031755 
031756 
031757 
031760 
031761 

031762 
031763 


476  00  0  00  000003 
205  01  0  00  200000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034441 

254  04  0  00  031754 
324  00  0  00  031755 


IFE 

2Z,<ZZ=1> 

SETOM 

3 

MOVSI 

1,2Z 

MOVE  I 

2J 

MOVE 

3,(2) 

CAME 

3,CZZ,,0] 

STOP* 

HALT 

.-^1 

JUMPA 

.-^1 

»♦♦♦♦♦♦**♦ 

.-Preload  ac3  with  -1,,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 

by  index 

a  1  and 

ihould  be  a 


001322 
400000 

476  00  0  00  000003 
205  01  0  00  400000 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034442 

254  04  0  00  031763 
3c-   00  0  00  031764 


SN=SN^1 


U=ZZ^ 

22 

in 

ZZ.<ZZ=1> 

SETOM 

3 

MOVSI 

^M 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..0] 

STOP* 

HALT 

.♦1 

JUMPA 

."H 

********** 


.-Preload  ac3  with  -1.,-1 
.-Preload  ad  with  floating  1 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


— ! 


031 76A 
031765 
031766 
031767 
031770 

031771 
031772 


A02  00  0  00  000003 
476  00  0  00  000001 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  03AA43 

254  04  0  00  031772 
324  00  0  00  031773 


001500 
000000 


C1400: 


SETZM 
SETOW 
MOVE  I 
MOVE 
CAME 
STOP* 
HALT 
JUMP  A 


3 

1 

3,(2) 
3,M,,-1] 

.+1 


;♦»♦♦♦•♦♦♦♦ 


SN=1500 


2Z=0 
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2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

;037 

;038 

5039 

;040 


SEQ  0071 


.-Preload  ac3  with  0 
.-Preload  ad  with  -1..-1 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


C1500:  REPEAT  *D18.< 

.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN>1 


ll^<UHl^^>l777777 


IFE 

SETZM 

HRROI 

MOVE  I 

MOVE 

CAME 

STOP 


<ZZ'^>.<Z^=777776> 

^M 

2.1 

3.(2) 

3.M..Z2] 


.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 


;*♦*♦♦♦♦*♦♦ 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed,  the. move 


031773 
031774 
031775 


001501 
000001 
777776 
402  00  0  00  000003 
561  01  0  00  777776 
201  02  0  00  000001 


SN=SN+1 


ZI=<ZZ*22^]>t777777 

IFE    <ZZ-'\>  .<ZZ^777776> 

SETZM   3 

HRROI   1.ZZ 

MOVEI   2.1 


.•Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
; Setup  index  register 
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SEQ  0072 


3041 
30A2 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 


031776  200  03  0  02  000000 

031777  312  03  0  00  034444 

032000  254  04  0  00  032001 

032001  324  00  0  00  032002 


032002 
032003 
032004 
032005 
032006 

032007 
032010 


03201 1 
032012 
03201 3 
032014 
03201 5 

032016 
032017 


001502 
777775 

402  00  0  00  000003 
561  01  0  00  777775 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034445 

254  04  0  00  032010 
324  00  0  00  032011 


001503 
77777Z 

402  00  0  00  000003 
561  01  0  00  777775 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034446 

254  04  0  00  032017 
324  00  0  00  032020 


MOVE 

CAME 

STOP* 

HALT 

JUMPA 


3,(2) 
3,M,,ZZ] 

.+1 


;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦*****•**♦ 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
Instruction  should  place  the  contents  of  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
Floating  0.  if  c(ac3}=a  floating  0,  this  test  passes. 


SN=SN+1 


lU<lim^'\>l777777 


IFE 

SETZM 

HRROI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<U-}>  .<lU77777t> 

1.ZZ 
2,1 
3,(2) 
3,C-1,,ZZ] 

.-^1 


.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
;Test  1  exing 

Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦♦*•♦**♦♦* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  of  the  location  specified  by  index 
;Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
:AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN^1 


27=<Z2*U^'\>1777777 


IFE 

SETZM 

HRROI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<ZZ-1>.<ZZ=777776> 

3 

1,ZZ 

2,1 

3.(2) 

3,C-1,,ZZ] 


.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦♦♦♦♦»♦♦»♦ 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 


032020 
032021 
032022 
032023 
032024 

032025 
032026 


001 504 
7777t7 

402  00  0  00  000003 
561  01  0  00  7777t7 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034447 

254  04  0  00  032026 
324  00  0  00  032027 


SN=SN+1 


^l^<l^m^^>l777777 


IFE 

SETZW 

HRROI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<ZZ-^>,<U=777776> 

3 

IM 

2J 

3,(2) 

3,M,,ZZ] 

.+1 


.-Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction*" 


•♦*♦*****♦• 
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3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 


SEQ  0073 


032027 
032030 
032031 
032032 
032033 

032034 
032035 


001505 
777757 

4ui  00  0  00  000003 
561  01  0  00  777757 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034450 

254  04  0  00  032035 
324  00  0  00  032036 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 

SN=SN+1 


U=<Um^}>l777777 


IFE 

<ll'}>.<ll^77777t> 

SETZM 

3 

HRROI 

^.U 

MOVE  I 

2.1 

MOVE 

!;.(2) 

CAME 

3.>1..ZZ] 

STOP'" 

HALT 

."H 

JUMPA 

.*1 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


*********t 


001506 
777717 

032036  402  00  0  00  000003 

032037  561  01  0  00  777717 
032040  201  02  0  00   000001 


This  test  verifies  that  index  register  addressing  functions  correctly. 

In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 

Instruction  should  place  the  contents  of  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 

AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 

Floating  0.  if  c(ac3)=d  floating  0.  this  test  passes. 

SN=SN*1 


22=<II^n^)>i777777 

IFE     <22''\>,<U^777776> 

SETZM   3 

HRROI   I.ZZ 

MOVEI   2.1 


.•Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.'Setup  index  register 


f" 
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SEQ  0O7(* 


3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

31 6A 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 


032041 
032042 

032043 
032044 


032045 
032046 
032047 
032050 
032051 


032052 
032053 


032054 
032055 
032056 
032057 
032060 

032061 
032062 


200  03  0  02  000000 
312  03  0  00  034451 

254  04  0  00  032044 
324  00  0  00  032045 


001507 
777677 

402  00  0  00  000003 
561  01  0  00  777677 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034452 

254  04  0  00  032053 
324  00  0  00  032054 


001510 
777577 

402  00  0  00  000003 
561  01  0  00  777577 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034453 

254  04  0  00  03206? 
324  00  0  00  032063 


MOVE 

3,(2) 

CAME 

3,M,,ZZ] 

STOP* 

HALT 

.♦1 

JUMP  A 

.*! 

;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  ^  """*  '  —  *•-"*•'—  .-<•—  ,'-.^^^,--.^  ,-  ^^^^..-^^   «.i.^ — ^..^ 


SN=SN*1 


Z2^<ZI^U^l>i777777 


in 

<2Z-1>,<Z2=777776> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,[-1,,ZZ] 

STOP* 

HALT 

.'^l 

JUMP  A 

.*! 

.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.•Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
; Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
/Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN^1 


IU<U^U^}>V77777 


IFE 

<U-y>.<ll^77777t> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.r-l.,ZZ] 

STOP* 

HALT 

.♦1 

JUMP  A 

.♦1 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


This  test  \/erifies 
In  this  test,  a  move 


that  index  register  addressing  functions  correctly, 
instruction  using  indexing  is  executed,  the  move 
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SEQ  0075 


3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

32U 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 


032063 
032064 
032065 
032066 
032067 

032070 
032071 


032072 
032073 
032074 
032075 
032076 

032077 
032100 


001511 
777177 

402  00  0  00  000003 
561  01  0  00  777177 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034454 

254  04  0  00  032071 
324  00  0  00  032072 


001512 
776777 

4uJ  00  0  00  000003 
561  01  0  00  77t777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034455 

254  04  0  00  032100 
324  00  0  00  032101 


001513 
775777 

032101  402  00  0  00  000003 

032102  561  01  0  00  775777 

032103  201  02   0  00  000001 


.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN*1 


ll=<U^U^y>%777777 


IFE 

<U'^>  .<ll^77777t> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.C-1..ZZ] 

STOP'' 

HALT 

.♦1 

JUMP  A 

.♦1 

.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
; Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  progran  halts  here 
;To  loop  change  this  instruction*" 


********** 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.'AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN^1 


11=<U^U^'{>1777777 


IFE 

<U-y>,<ll^77777t> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.[-1..ZZ] 

STOP* 

HALT 

.♦1 

JUMP  A 

.>1 

.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.'Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


**t******* 


.•This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.'Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  at3  should  be  a 
.'Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN*1 


2Z=<U^Zl*l>i777777 

IFE     <2I''\>.<Z2=77777t> 

SETZM   3 

HRROI   1.ZZ 

MOVEI   2.1 


.'Preload  ac3  with  0 
.'Preload  ad  with  floating  0 
.'Setup  index  register 
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r 


SEQ  0076 


3261 

3262 

3263 

326A 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

327A 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

328A 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

5312 

3313 

3314 

3315 


032104 
032105 

032106 
032107 


032110 
032111 
032112 
032113 
032114 

0321 IS 
032116 


032117 
032120 
032121 
032122 
032123 

032124 
032125 


200  03  0  02  000000 
312  03  0  00  034456 

254  04  0  00  032107 
324  00  0  00  032110 


001514 
771777 

402  00  0  00  000003 
561  01  0  00  771777 
201  -^2  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034457 

254  04  0  00  032116 
324  00  0  00  032117 


001515 
767777 

402  00  0  00  000003 
561  01  0  00  7t7777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034460 

254  04  0  00  032125 
324  00  0  00  032126 


MOVE 
C.^ME 
STOP* 
HALT 
JUMP  A 


3,(2) 
3,M,,ZZ] 

.+1 


;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


« 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN+1 


lU<U^U^y>l777777 


IFE 

<ZZ-1> 

,<2l=777776> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.M. 

Ml 

STOP* 

HALT 

.*1 

JUMPA 

.-^1 

;t*******t* 

.-Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.•Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressing  functions  correctly. 

;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 

.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 

;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 

.•Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 

SN=SN*1 


U=<U^U^^>l777777 


IFE 

<U'}>.<lU77777t> 

SETZM 

5 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.C-1..ZZ] 

STOP* 

HALT 

.-^1 

JUMPA 

.♦1 

.-Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


t********* 


This  tesl  verifies 
In  this  test,  a  mov/e 


that  index  register  addressing  functions  correctly, 
instruction  using  indexing  ts  executed,  the  move 


im>w*W>iiw*iw<»Mll>i 
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SEQ  0077 


3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 


032126 
032127 
032130 
032131 
032132 

032133 
032134 


032135 
032136 
032137 
032140 
032141 

032142 
032143 


032144 
032145 
032146 


001516 
757777 

402  00  0  00  000003 
561  01  0  00  757777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034461 

254  04  0  00  032134 
324  00  0  00  032135 


001517 
717777 

^Kjl   00  0  00  000003 

561  01  0  00  717777 

201  02  0  00  000001 

200  03  0  02  000000 

312  03  0  00  034462 

254  04  0  00  032143 
324  00  0  00  032144 


001520 
t77777 

402  00  0  00  000003 
561  01  0  00  677777 
201  02   0  00  000001 


.'Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN*1 


IU<11^11^}>1777777 


IFE 

<U-)>,<2Z=777776> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.C-1..ZZJ 

STOP* 

HALT 

.•H 

JUMPA 

.-^1 

.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


•**•»»*  t  ^-  ♦ 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the, move 


SN=SN*1 


lU<imi^y>l777777 


IFE 

<U'}>  .<lU77777t> 

SETZM 

3 

HRRHI 

^Al 

MOVLI 

2.1 

MOVE 

3.(2) 

CAME 

3.C-1..ZZ] 

STOP* 

HALT 

.•H 

JUMPA 

.-^1 

.-Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
; Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instrurtion* 


*tt******* 


;This  test  verifie?  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruct ^'on  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.•AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN^1 


lU<im2^'\>l777777 

IFE     <U''\>,<ll^77777t> 

SETZM   3 

HRROI   1.ZZ 

MOVEI   2.1 


.•Preload  dc3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 


,_„.j 


L 
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SEQ  0078 


3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 


032147 
032150 

032151 
032152 


032153 
032154 
032155 
032156 
032157 

032160 
032161 


032162 
032163 
032164 
032165 
032166 

032167 
032170 


200  03  0  02  000000 
312  03  0  00  034463 

254  04  0  00  032152 
324  00  0  00  032153 


001521 
"illlll 

402  00  0  00  000003 
561  01  0  00  Vfllll 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034464 

254  04  0  00  032161 
324  00  0  00  032162 


001522 
Villi 

402  00  0  00  000003 
561  01  0  00  Villi 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034465 

254  04  0  00  032170 
324  00  0  00  032171 


r 

c 
c 


MOVE 
CAME 
STOP* 
HALT 
JUMP  A 


3,(2) 
3,M,,ZZ] 

.+1 
.+1 


;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction'' 


•*•♦•*••*•* 


verifies  that  index  register  addressing  functions  correctly. 
;t,  :x  move  instruction  using  indexing  is  executed,  the  move 
i, should  place  the  contents  of  the  location  specified  by  index 


;This  test 
;In  this  test 

.•Instruction  i , ,..-  ^.  ...-  _, .^-  . 

;Register  2  into  aw3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN^1 


ll^<ll^ll^y>lllllll 


IFE 

<Li-'\>.<ii^rniit> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.C-1..ZZ] 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


••»♦•**••* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN^1 


ll^<ll^ll^y>lllllll 


IFE 

<ll'\>.<ll^lllllt> 

SETZM 

3 

HRROI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.C-1..ZZ3 

STOP* 

HALT 

.-^1 

JUMPA 

•*^ 

*tt******# 

.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


66 


DFKAD  PDP10  <110  BASIC 

INSTRUCTION 

DFKAD1 

MAC 

1-Oct- 

•8A  16:01 

3A23 

001600 

3A24 

000000 

3A25 

3A26 

3427 

3A28 

3429 

3A30 

3A31 

3A32 

3A33 

3A3A 

3A35 

3A36 

3A37 

3A38 

3A39 

3AA0 

3AA1 

3AA2 

3AA3 

3AAA 

3AA5 

3AA6 

3AA7 

3AA8 

3AA9 

3A50 

3A51 

3A52 

3A53 

3A5A 

001601 

3A55 

000001 

3A56 

Hint 

3A57 

032171 

A02  00 

0  00  000003 

3A58 

032172 

525  01 

0  ^^  unit 

3A59 

032173 

201  02 

0  00  000001 

3A60 

0321 7A 

200  03 

0  02  000000 

3A61 

032175 

312  03 

0  00  03AA66 

3A62 

3A63 

032176 

25A  OA 

0  00  032177 

3A6A 

032177 

32A  00 

0  00  032200 

3A65 

3A66 

3A67 

' 

3A68 

3A69 

3  A  70 

3A71 

3  A  72 

3A73 

3A7A 

•  3A75 

3  A  76 

001602 
111115 

3A77 

lOSTIC  (A)  0,2   MACRO  X53A(1152:  10:53  2-0ct-8A  Page  11 
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SN=1600 


ZZ=0 


C'600:  REPEAT  *D18,< 

;TrSis  test  ^/en'fies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 

SN=SN^-1 


n^<u^u^}>iiiiiii 


IFE 

SETZM 

HRLOI 

MOVE  I 

MOVE 

CAME 

STOP 


<22''\  >,<U=lllllt> 

^M 
2,1 
3,(2) 
3,CZZ,,-1] 


.-Preload  ac3  with  0 
.-Preload  ac1  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 


•*••*♦••♦* 


.-This  test  verifies  that  index  register  addressing  functions  correctly, 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preLoad<?d  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN--SN+1 


lU<UHl^y>lllllll 


IFE 

<2Z''1>,<2l=lllllt> 

SETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ,.-1] 

STOP* 

HALT 

.-^1 

JUMPA 

.-H 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-♦Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


****t*t^t*t 


.-This  test  verifies  that  index  register  addressing  functions  correctly 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  reaister  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  fhe  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN>1 


lU<UHU^>illllll 


SEQ  0079 


.-J 
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SEQ  OOSO 


3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 


032200 
032201 
032202 
032203 
032204 

032205 
032206 


402  00  0  00  000003 
525  01  0  00  777775 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034467 

254  04  0  00  032206 
324  00  0  00  032207 


032207 
032210 
032211 
032212 
032213 

032214 
032215 


001603 
777771 

402  00  0  00  000003 
525  01  0  00  777771 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034470 

254  O;  0  00  032215 
5^-  00  0  00  032216 


032216 
032217 
032220 
0^2221 
0^22 

032223 
032224 


00^604 
7777t7 

402  00  0  00  000003 
525  01  0  00  7777t7 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034471 

254  04  0  00  032224 
324  00  0  OC  032225 


IFE 

SETZM 

HRLOI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<ZZ-1>,<ZZ=777776> 

1,ZZ 
2,1 
3,(2) 
3,[ZZ,,-1] 

.+1 


.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


It-klfkitlfkitifk 


SN=SN+1 


lU<ll^ll^}>V77777 


IFE 

<ll'}>.<ll^77777t> 

SETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,rzz.,-i] 

STtiO* 

\-kl 

.-M 

JUMPA 

."H 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setuj.  index  register 
.-♦Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


#****«***# 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  o*  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  rtqister  2  was  preloaded  wi^'h  a  1  and 
.-AcT  was  preloaded  k'th  a  floating  0,  the  final  result  in  ac3  should  be  a 
.'Floating  0.  if  c(dc3)=a  floating  0,  this  test  passes. 


SN=SN^1 


IU<U^U^}>V77777 


IFE 

<U''\>  ,<lU77777t> 

SETZM 

I 

HRLOI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ,,-1] 

STOP* 

HALT 

.-^1 

JUMPA 

.M 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-♦Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


t**t****** 


8 
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3533 

3534 

3535 

3536 

3537 

3538 

3539 

35A0 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 


032225 
032226 
032227 
032230 
032231 

032232 
032233 


032234 
032235 
032236 
032237 
032240 

032241 
032242 


001605 
777757 

402  00  0  00  000003 
525  01  0  00  777757 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034472 

254  04  0  00  032233 
324  00  0  00  032234 


001606 
777717 

402  00  0  00  000003 
525  01  0  00  777717 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034473 

254  04  0  00  032242 
32^»  00  0  00  032243 


001607 
777t77 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  s.  reified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN+1 


ll^<Um^y>V77777 


IFE 

<Z2'1>M2=777776> 

SETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..-1] 

STOP^ 

HALT 

.-^l 

JUMPA 

.•H 

;Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
; Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction^ 


********** 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  ^as  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN*1 


ll=<U^ll^y>V77777 


IFE 

<ll'}>  .<lU77777t> 

SETZM 

3 

HRLOI 

1.ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..-1] 

STOP* 

HALT 

.♦1 

JUMPA 

.♦1 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  progr«..,i  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executej.  the  ynove 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ar.3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN*1 


22=<22^22^)>i777777 


SEQ  0081 
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SEQ  0082 


3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
^638 
1639 
5640 
641 
5642 


032243 
032244 
032245 
032246 
032247 

032250 
032251 


402  00  0  00  000003 
525  01  0  00  777t77 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034474 

254  04  0  00  032251 
324  00  0  00  032252 


032252 
032253 
032254 
032255 
032256 

032257 
032260 


001610 
777577 

402  00  0  00  000003 
525  01  0  00  777577 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034475 

254  04  0  00  032260 
3^  •  00  0  00  032261 


032261 
032262 
032263 
032264 
032265 

032266 
032267 


001611 
777Z77 

402  00  0  00  000003 
525  01  0  00  777377 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034476 

254  04  0  00  032267 
324  00  0  00  032270 


IFE 

<U'}>.<ill^77777t> 

SETZM 

3 

HRLOI 

y.ii 

MOVE  I 

I'K 

MOVE 

3,(2) 

CAME 

3,CZZ.,-1] 

STOP'^ 

HALT 

.^^ 

JUMP  A 

.*i 

.-Preload  ac3  with  0 
; Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

;Tes  *ailed  if  program  halts  here 
;To   jp  change  this  instruction* 


******t«t* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  loct-:ion  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN^1 


IU<U^U^}>1777777 


IFE 

<U'}>  ,<lU77777t> 

SETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3.CZZ,,-1] 

STOP* 

HALT 

.♦1 

JUMP  A 

.-M 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN+1 


2Z=<22^Z2^'\>i777777 


IFE 

<22'y>.<22^77777t> 

:>ETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2,1 

MOVE 

3,(2) 

CAME 

3,CZZ,.-1] 

STOP* 

HALT 

.>1 

JUMP  A 

."^1 

********** 


.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-♦Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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SEQ  0083 


3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
1693 
1694 
5695 
5696 
5697 


032270 
032271 
032272 
032273 
032274 

032275 
032276 


001612 
lltlll 

402  00  0  00  000003 
525  01  0  00  lltlll 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034477 

254  04  0  00  032276 
324  00  0  00  032277 


032277 
032300 
032301 
032302 
032303 

032304 
032305 


001613 
11^111 

402  00  0  00  000003 
525  01  0  00  11^111 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034500 

254  04  0  00  032305 
324  00  0  00  032306 


001614 
mill 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
Instruction  should  place  the  contents  OT  the  location  specified  by  index 
Register  2  into  ac3.  .since  index^register  2. was  prelpaded^with  a  1  and 

9  u,  tnis  resu  pas: 


Instruction  should  place  the  contents  oT  the  location  specified  by  indi 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  ai 
Act  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be 
Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN^1 


ll^<ll^ll^y>%llllll 


IFE 

<!!-}>. <lUlllllt> 

SETZM 

3 

HRLOI 

1,Z2 

MOVE  I 

2^ 

MOVE 

3,(2) 

CAME 

3,rzz,,-i3 

STOP'^ 

HALT 

.♦^   ./ 

JUMP  A 

.*! 

.•Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.'Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦♦♦»»♦***♦ 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
Instruction  should  place  the  contents  of  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SN"H 


U^<ll^ll^}>lllllll 


IFE 

SETZM 

HRLOI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMP  A 


<ll'}>  .<lUlllllt> 

2.1 

3.(2) 

3.CZZ..-1] 

.♦1 
.♦1 


.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

.'Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦♦♦♦♦♦*♦*» 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  execute j.  the  move 
; Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Rtgister  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN^1 


22=<22^2l^)>illllll 
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SEQ  OOS^ 


3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

37U 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 


032306 
032307 
032310 
03231 1 
032312 

032313 
032314 


IFE 

<ZZ-1>,<ZZ=777776> 

402  00  0  00  000003 

SET2M 

3 

525  01  0  00  771777 

HRLOI 

1,ZZ 

201  02  0  00  000001 

MOVE  I 

2J 

200  03  0  02  000000 

MOVE 

3,(2) 

312  03  0  00  034501 

CAME 
STOP* 

3,CZZ,,-1] 

254  04  0  00  032314 

HALT 

.+1 

324  00  0  00  032315 

JUMP  A 

.-H 

032315 
032316 
03231 7 
032320 
032321 

032322 
032323 


001615 
767777 

402  00  0  00  000003 
525  01  0  00  767777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034502 

254  04  0  00  032323 
5d  •  00  0  00  032324 


032324 
032325 
032326 
032327 
032330 

032331 
032332 


001616 
757777 

402  00  0  00  000003 
525  01  0  00  757777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034503 

254  04  0  00  032332 
324  00  0  00  032333 


;Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test.  a. move  instruction  using  indexing  is  executed,  the  move 


SN=SN-H 


lU<imi^}>l777777 


IFE 

SETZM 

HRLOI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<ll-}>  .<IU777776> 

l.ZZ 
2.1 
3.(2) 
3.CZZ..-13 

.♦1 
.+1 


.•Preload  ac3  with  0 
.•Preload  ad  with  floating  0 
.•Setup  index  register 
;*Fwt  from  indexed  location 
;Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦•*•***•♦* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  usinq  indexing  is  executed,  the  move 
.•Instruction  should  place  the  contents  or  the  location  specified  by  index 
.•Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.•Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN+1 


lU<imi^'\>l777777 


IFE 

SETZM 

HRLOI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<ll-}> .<ll^777776> 

l.ZZ 
2.1 
3.(2) 
3.CZZ..-1] 

.•H 
.•^1 


; Pre  load  ac3  with  0 
.•Preload  ad  with  floating  0 
; Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


•  ********** 
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SEQ  0085 


3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3786 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 


032333 
032334 
032335 
032336 
032337 

032340 
032341 


001617 
717777 

402  00  0  00  000003 
525  01  0  00  717777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034504 

254  04  0  00  032341 
324  00  0  00  032342 


032342 
032343 
032344 
032345 
032346 

032347 
032350 


001620 
677777 

402  00  0  00  000003 
525  01  0  00  t77777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034505 

254  04  0  00  032350 
324  00  0  00  032351 


001621 
577777 


This  test  verifies  that  index  register  addressing  functions  correctly. 
In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
Instruction  should  place  the  contents  or  the  location  specified  by  index 
Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
AcT  was  preloaded  with  a  floating  0,  the  final  result  in  ac3  should  be  a 
Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


ZZ=<2Z^2Z*1>&777777 

IFE 

<2I'U,<ZZ=777776> 

SETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..-1] 

STOP* 

HALT 

.-H 

JUMP  A 

.-H 

tttidf'k'kick'k 

.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  or  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
.-AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0.  this  test  passes. 


SN=SN'»-1 


U=<lim^}>l777777 


IFE 

<ZZ-1>.<ZZ= 

SETZM 

3 

HRLOI 

1,ZZ 

MOVE  I 

2.1 

MOVE 

3.(2) 

CAME 

3.CZZ..-1] 

STOP* 

HALT 

.-H 

JUMPA 

."H 

•********^* 

.•Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
.-*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  index  register  addressing  functions  correctly. 
.-In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3)=a  floating  0,  this  test  passes. 


SN=SNt1 


ZI=<U*Zl^)>i777777 
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SEQ  0086 


3808 

3809 

3810 

3811 

3812 

3813 

38U 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 


032351 
032352 
032353 
032354 
032355 

032356 
032357 


402  00  0  00  000003 
525  01  0  00  577777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  C34506 

254  04  0  00  032357 
324  00  0  00  032360 


IFE 

<Z2-1>,<ZZ=777776> 

SETZM 

3 

HRLOI 

y.ii 

MOVE  I 

2  J 

MOVE 

3,(2) 

CAME 

3,CZZ,,-1] 

STOP* 

HALT 

.-^1 

JUMPA 

.•H 

***♦*•*»** 

.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


;This  test  verifies  that  index  register  addressing  functions  correctly. 
;In  this  test,  a  move  instruction  using  indexing  is  executed,  the  move 
.-Instruction  should  place  the  contents  of  the  location  specified  by  index 
.-Register  2  into  ac3.  since  index  register  2  was  preloaded  with  a  1  and 
;AcT  was  preloaded  with  a  floating  0.  the  final  result  in  ac3  should  be  a 
.-Floating  0.  if  c(ac3}=a  floating  0.  this  test  passes. 


032360 
032361 
032362 
032363 
032364 

032365 
032366 


001622 
177777 

402  00  0  00  000003 
525  01  0  00  177777 
201  02  0  00  000001 
200  03  0  02  000000 
312  03  0  00  034507 

254  04  0  00  032366 
Ic     00  0  00  032367 


SN=SN^1 


ll=<ll^ll^y>V77777 


IFE 

SETZM 

HRLOI 

MOVE  I 

MOVE 

CAME 

STOP* 

HALT 

JUMPA 


<ll-y>.<lU77777t> 

1.ZZ 
2.1 
3.(2) 
3.CZZ..-1] 

.'^1 
.+1 


.-Preload  ac3  with  0 
.-Preload  ad  with  floating  0 
.-Setup  index  register 
;*Fwt  from  indexed  location 
.-Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


********** 


i 


■'■*"1 
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SEQ  00S7 


38A2 
3843 
38A4 
38A5 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
{893 
1894 
5895 
1896 


001700 
777777  777777 
777777     777770 


032367 
032370 
032371 

032372 
032373 


032374 
032375 
032376 

032377 
032400 


032401 
032402 
032403 


001 701 
000000 
777777     777771 
201  01  0  00  000005 
201  00  0  00  000000 
302  00  0  01  777773 

23  04  0  00  032373 
324  00  0  00  032374 


001702 
000001 
777777     77777t 
201  02  0  00  000003 
201  01  0  00  000001 
302  01  0  02  77777t 

254  04  0  00  032400 
324  00  0  00  032401 


001703 
000002 
000001 
201  03  0  00  000001 
201  02  0  00  000002 
302  02  0  03  000001 


032404  254  04  0  00  032405 


; Verify  indexing  where  'e'  is  non-zero 

SN=1700 

ZZ=-1 
XX=-10 

;This  test  verifies  that  index  register  addressing  functions  correctly,  in 
;This  test,  the  index  reg  is  set-up  with  movei  zz+1,zz-xx,  where  zz-'-l  is  the 
.'Index  reg.  the  ac  is  preloaded  with  its  own  address,  0,,zz.  caie  is  used  to 
;Test  the  indexing  operation,  if  the  result  in  c(ac)=xx'»'C(zz"»'1  -  right),  this 
.-Test  passes.  xx-'-cCzz+l  -  right)  should  =  zz. 


CI  700:  REPEAT 

<SN=SN+1 

Z2=Z2*i 

XX=XX+3 

MOVEI 

MOVEI 

CAIE 

STOP 

> 

SN=SN*1 

XX=XX^3 

MOVEI 

MOVEI 

CAIE 

STOP* 

HALT 

JUMPA 

*********** 


SN=SN*1 


XX=XX+3 

MOVEI 

MOVEI 

CAIE 

STOP* 

HALT 

JUMPA 


ft***tt*«** 


SN=SN+1 


XX=XX>3 

MOVEI 

MOVEI 

CAIE 

STOP* 

HALT 


*D15, 


ZZ+1,ZZ-XX 

ll.ll 

ZZ,XX(ZZ*1) 


ZZ^1,ZZ-XX 
ll.ll 

ii.tmi^\) 

.♦1 


ZZ+1,ZZ-XX 

ll.ll 
ii.mai^\) 


ZZ*1,ZZ-XX 

ll.l\ 
ii.tmiA) 


; Setup  index  register 
.-Preload  ac  witn  0,,zz 
;*Test  indexing 


; Setup  index  register 
.•Preload  ac  witn  0,,zz 
;*Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.•Setup  index  register 
.•Preload  ac  with  0,,zz 
;*Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.•Setup  index  register 
.•Preload  ac  with  0,,zz 
.•♦Test  indexing 

;Test  failed  if  program  halts  here 
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SEQ  0088 


3897 

032405 

324  00  0  00  032406 

JUMPA 

.•n 

3898 

3899 

;♦♦»*♦♦•**♦ 

3900 

3901 

001704 

SN=SN*1 

3902 

000003 

luii^y 

3903 

000004 

XX=XX^3 

390A 

032406 

201  04  0  00  mill 

MOVE  I 

ZZ^1,ZZ-XX 

3905 

032407 

201  03  0  00  000003 

MOVE  I 

ll.ll 

3906 

032410 

302  03  0  04  000004 

CAIE 

ii.tmi^\) 

3907 

STOP* 

3908 

032411 

254  04  0  00  032412 

HALT 

.♦1 

3909 

032412 

324  00  0  00  032413 

JUMPA 

.-n 

3910 

3911 

;»♦*»**♦♦♦* 

3912 

3913 

001705 

SN=SN*1 

3914 

000004 

IUU^\ 

3915 

000007 

XX=XX+3 

3916 

032413 

201  05  0  00  11111^ 

MOVE  I 

ZZ^1,ZZ-XX 

3917 

032414 

201  04  0  00  000004 

MOVE  I 

ll.ll 

3918 

032415 

302  04  0  05  000007 

CAIE 

ZZ,XX(ZZ+1) 

3919 

STOP* 

3920 

032416 

254  04  0  00  032417 

HALT 

.♦1 

3921 

032417 

324  00  0  00  032420 

JUMPA 

.♦1 

3922 

3923 

;**»♦»»*♦»♦ 

3924 

3925 

001706 

SN=SN*1 

3926 

000005 

luii^y 

3927 

000012 

XX=XX+3 

3928 

032420 

201  06  0  00  mill 

MOVE  I 

ZZ+1,ZZ-XX 

3929 

032421 

201  05  0  00  000005 

MOVEI 

ll.ll 

3930 

032422 

302  05  0  06  000012 

CAIE 

ii.tmiA) 

3931 

STOP* 

3932 

032423 

254  04  0  00  032424 

HALT 

.*i 

3933 

032424 

324  00  0  00  032425 

JUMPA 

.-^1 

3934 

3935 

;♦♦»**»♦♦♦♦ 

3936 

3937 

001707 

SN=SN^1 

3938 

000006 

ZZ=Zi>1 

3939 

000015 

XX=XX*3 

3940 

032425 

201  07  0  00  limy 

MOVEI 

ZZ*1,ZZ-XX 

3941 

032426 

201  06  0  00  000006 

MOVEI 

ll.ll 

3942 

032427 

302  06  0  07  000015 

CAIE 

ll.XXiU^]) 

3943 

STOP* 

3944 

032430 

254  04  0  00  032431 

HALT 

.♦1 

3945 

032431 

324  00  0  00  032432 

JUMPA 

.-^1 

3946 

3947 

; ********** 

3948 

3949 

001710 

5N=SNM 

3950 

000007 

luii^y 

3951 

000020 

XX=XX^3 

;To  loop  change  this  instruction* 


; Setup  index  reaister 
.-Preload  ac  witn  0..zz 
;*Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  reaister 
.•Preload  ac  with  0..zz 
;*Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.'Setup  index  register 
.•Preload  ac  witn  0..zz 
;*Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.•Setup  index  register 
.•Preload  ac  witn  0..zz 
;*Test  indexing 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


L- 
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3952 

032432 

201 

10  0  00  7777t7 

3953 

032433 

201 

07  0  00  000007 

395A 

032434 

302 

07  0  10  000020 

3955 

3956 

032435 

254 

04  0  00  032436 

3957 

032436 

324 

00  0  00  032437 

3958 

3959 

3960 

3961 

001711 

3962 

000010 

3963 

000023 

3964 

032437 

201 

11  0  00  777765 

3965 

032440 

201 

10  0  00  000010 

3966 

032441 

302 

10  0  11  000023 

3967 

3968 

032442 

254 

04  0  00  032443 

3969 

032443 

324 

00  0  00  032444 

3970 

3971 

3972 

3973 

001712 

3974 

00001 1 

3975 

000026 

3976 

032444 

201 

12  0  00  777763 

3977 

03244 r 

201 

11  0  00  000011 

3978 

032446 

302 

11  0  12  000026 

3979 

3980 

032447 

254 

04  0  00  032450 

3981 

032450 

324 

00  0  00  032451 

3982 

3983 

3984 

3985 

001713 

3986 

000012 

3987 

000031 

3988 

032451 

201 

13  0  00  777761 

3989 

032452 

201 

12  0  00  000012 

3990 

032453 

302 

12  0  13  000C31 

3991 

3992 

032454 

254 

04  0  00  032455 

3993 

032455 

324 

00  0  00  032456 

3994 

3995 

3996 

3997 

001714 

3998 

000013 

3999 

000034 

4000 

032456 

201 

14  0  00  777757 

4001 

032457 

201 

13  0  00  000015 

4002 

032460 

302 

13  0  14  000034 

4003 

4004 

032461 

254 

04  0  00  032462 

4005 

032462 

324 

00  0  00  032463 

/006 

MOVE  I 
MOVE  I 
CAIE 
STOP* 
HALT 
JUMP  A 


********** 


SN=SN*1 


xx=xx^3 

MOVE  I 

MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


********** 


SN=SN^1 


XX=XXt3 

MOVE  I 

MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


******>^*** 


SN=SN^1 


XX=XX+3 

MOVE  I 

MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


********** 


SN=SN*1 


XX=XX*3 

MOVE  I 

MOVE  I 

CAIE 

STOP* 

HALT 

JUMPA 


ZZ^1,ZZ-XX 
U.ll 

.+1 


ZZ*1,ZZ-XX 

u.ll 

ZZ,XX(ZZ^1) 

.♦1 


ZZ*1,ZZ-XX 
llAl 

ll.XKill^}) 

.*1 


ZZ+1,ZZ-XX 

ii,ii 
zz,xx(zz^i; 

.♦1 


ZZ>1,ZZ-XX 

II. li 

.♦1 


SEO  0089 


; Setup  index  reaister 
.•Preload  ac  witn  0,,zz 
;*Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;Setup  index  reaister 
.-Preload  ac  witn  0,,22 
;*Test  indexing 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  reaister 
.-Preload  ac  witn  0.,zz 
.-*Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


.-Setup  index  reaister 
.-Preload  ac  witn  0.,Z2 
.-♦Test  indexing 

.-Test  failed  if  program  ha  Us  here 
;To  loop  change  this  instruction* 


.-Setup  index  reaister 
.•Preload  ac  witn  0,.2z 
.-•Test  indexing 

.-Test  failea  if  program  halts  here 
;To  loop  change  this  instruction* 
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A007 

A008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 


032463 
032464 
032465 

032466 
032467 


032470 
032471 
032472 

032473 
032474 


032475 
032476 
032477 

032500 
032501 


201  15 
201  14 
302  14 


001715 

000014 

000037 
0  00  777755 
0  00  000014 
0  15  000037 


254  04  0  00  032467 
324  00  0  00  032470 


001716 
00001 5 
000042 
201  16  0  00  777753 
201  15  0  00  000015 
302  15  0  16  000042 

254  04  0  00  032474 
324  00  0  00  032475 


001717 
000016 
000045 
201  17  0  00  777751 
2u'  16  0  00  000016 
302  16  0  17  000045 

254  04  0  00  032501 
324  00  0  00  032502 


********** 


SN=SN+1 


SN=SN+1 


SN=SN*1 


I2=2I*^ 

XX=XXt3 

MOVE  I 

ZZ*1,ZZ-XX 

MOVE  I 

CAIE 

ZZ,XX(ZZ^1) 

STOP* 

HALT 

.-•^f 

JUMPA 

.^^1 

*** 

u=u*^ 

XX=XX*3 

MOVE  I 

ZZ*1,ZZ-XX 

MOVE  I 

zz.zz 

CAIE 

zz.mzz^}) 

STOP'' 

HALT 

.^^ 

JUMPA 

.^^ 

fr  ♦  * 

u=2Z*^ 

XX=XX*3 

MOVE  I 

zz^y.zZ'Xt 

MOVE  I 

zz.zz 

CAIE 

ZZ.XXiZZ^I) 

STOP* 

HALT 

.*i 

JUMPA 

.^1 

******  >*** 


PAGE 


SEQ  0090 


.-Setup  index  reaister 
.-Preload  ac  witn  0.,2? 
;*Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


.-Setup  index  register 
.-Preload  ac  witn  0,.2Z 
.-♦Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


.-Setup  index  register 
.-Preload  ac  witn  0,,zz 
.-♦Test  indexing 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 
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SEQ  0091 


4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

;098 

4099 

4100 


032502 
032503 
032504 

032505 
032506 


032507 
032510 
032511 

032512 
032513 


032514 
032515 
032516 

032517 
032520 


002000 

mill  mill 
mm  iiiit^ 


SN=2000 


002002 
OOOCOl 

mm   111112 

201  02  0  00  000007 
201  01  0  02  111112 
302  01  0  00  000001 

254  04  0  00  032513 
324  00  0  00  0325U 


002003 
000002 

mm   mm 

201  03  0  00  000003 

201  02  0  03  mm 

302  02  0  00  000002 

254  04  0  00  032520 
324  00  0  O'}   032521 


22=-l 
XX=-20 


;This  test  verifies  that  index  register  addressing  functions  correctl)^.  in 
;This  test,  the  index  reg  is  set-up  with  movei  zz+T,z2-xx,  where  zz^^  is  the 
; Index  reg.  indexing  is  tested  b)f  loading  the  ac  via  movei  22,xx(22+l), 
.-Where  xx'»"c(22'»-1)=22.  if  the  result  in  the  ac  equals  0,,22,  this  test  passes, 


C2000:  REPEAT 

*D15, 

<SN=SN+1 

zz=u^^ 

XX=XX^5 

MOVEI 

22+l,Z2-XX 

MOVEI 

22,XX(22+1) 

CAIE 

ll.ll 

STOP 

;♦•♦**•♦♦** 

002001 

SN=SN+1 

000000 

22=22+1 

mm   111165 

XX=XX+5 

201  01  0  00  000013 

MOVEI 

ll^^,ll'%t 

201  00  0  01  777765 

MOVEI 

u.mii^y) 

302  00  0  00  000000 

CAIE 
STOP* 

ll.ll 

254  04  0  00  032506 

HALT 

.-n 

324  00  0  00  032507 

JUMPA 

.+1 

;••♦*•*•*** 


SN=SN+1 


luii^y 

XX=XX+3 

MOVEI 

MOVEI 

CAIE 

STOP* 

HALT 

JUMPA 


22+l,Z2-XX 

22,XX(2Z^-1) 

ll.ll 

.+1 
.-^1 


***t**  Ji*t* 


SN=SN*1 


lUll^} 

XX=XX^V 

MOVEI 

MOVEI 

CAIE 

STOP* 

HALT 

JUMPA 


Z2+1,Z2-XX 

ll.mil^}) 

ll.ll 


********** 


.-Setup  index  register 

;*Test  indexing 

.-Pass  if  c(oc)=0., address  of 


ac 


.-Setup  index  register 

.-*Test  indexing 

.-Pass  '^f  c(ac)=0,.addres':  of  ac 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


.-Setup  index  register 

;*Test  indexing 

.-Pass  if  c(ac)=0., address  of  ac 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-Setup  index  register 

;*T    indexing 

;Pa-,j  if  c(ac)=0,, address  of  sc 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


,_»,  — ,■---.,».. .? 
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SEQ  0092 


A101 

A102 

002004 

SN=SNt1 

4103 

000003 

11=11^1 

A104 

000004 

XX=XX+5 

4105 

032521 

201  04 

0  00  777777 

MOVE  I 

ZZ+1,ZZ-XX 

4106 

032522 

201  03 

0  04  000004 

MOVE  I 

ZZ,XX(ZZ^1) 

4107 

032523 

302  03 

0  00  000003 

CAIE 

UM 

4108 

STOP* 

4109 

032524 

254  04 

0  00  032525 

HALT 

.+1 

4110 

032525 

324  00 

0  00  032526 

JUMPA 

.+1 

4111 

4112 

;•••♦*•*•♦* 

4113 

4114 

002005 

SN=SN+1 

4115 

000004 

u=u^^ 

4116 

000011 

XX=XX+5 

4117 

032526 

201  05 

0  00  777773 

MOVEI 

ZZ+1,ZZ-XX 

4118 

032527 

201  04 

0   05  000011 

MOVEI 

ZZ,XX(ZZ+1) 

4119 

032530 

302  04 

0  00  000004 

CAIE 

zz,zz 

4120 

STOP* 

4121 

032531 

254  04 

0  00  032532 

HALT 

."H 

4122 

032532 

324  00 

0  00  032533 

JUMPA 

.+1 

4123 

4124 

;*•*•*•**** 

4125 

4126 

002006 

SN=SN+1 

4127 

000005 

2Z==u-^ 

4128 

000016 

XX=XX+5 

4129 

032533 

201  06 

0  00  777767 

MOVEI 

ZZ+1,ZZ-XX 

4130 

032534 

201  05 

0   06  0C0016 

MOVEI 

ZZ,XX(ZZ^1) 

4131 

032535 

5ui  05 

0  00  000005 

CAIE 

ZIM 

4132 

STOP* 

4133 

032536 

25<»  04 

0  00  032537 

HALT 

.-M 

4134 

032537 

324  00 

0  00  032540 

JUMPA 

.-n 

4135 

4136 

' ♦•♦•♦****• 

4137 

4138 

002007 

SN=SN*1 

4139 

000006 

Z2=u^^ 

4140 

000023 

XX=XX+5 

4141 

032540 

201  07 

0  00  777763 

MOVEI 

ZZ+1,ZZ-XX 

4142 

032541 

201  06 

0  07   000023 

MOVEI 

zz,xx(zz*i: 

4143 

032542 

302  06 

0  00  000006 

CAIE 

ZZJZ 

4144 

STOP* 

4145 

032543 

254  04 

0  00  032544 

HALT 

.•^1 

4146 

032544 

324  00 

0  00  032545 

JUMPA 

.-n 

4147 

4148 

•  ♦♦♦♦♦♦*♦♦» 

4149 

9 

4150 

002010 

SN=SN+1 

4151 

000007 

U=2I^] 

4152 

000030 

XX=XX>5 

4153 

0325^5 

201  10 

0  00  777757 

MOVEI 

zz+i,zz-xx 

4154 

032546 

201  07 

0   10  000030 

MOVEI 

ZZ.XXiZZ^)) 

4155 

032547 

302  07 

0  00  000007 

CAIE 

zzriz 

; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0,, address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0,, address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0, , address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0, , address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  ^"ndex  register 

;*Test  indexing 

;Pass  if  c(ac)=0, , address  of  ac 
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SEQ  0093 


4156 

STOP* 

4157 

032550 

254  04  0  00  032551 

HALT 

.-^1 

4158 

032551 

324  00  0  00  032552 

JUMPA 

.+1 

4159 

4160 

;«*«**1^«*t* 

4161 

4162 

002011 

SN=SN+1 

4163 

000010 

ii^ii^y 

4164 

000035 

XX=XX+5 

4165 

032552 

201  11  0  00  777753 

MOVEI 

ZZ+1,ZZ-XX 

4166 

032553 

201  10  0  11  000035 

MOVEI 

ZZ,XX(ZZ+1) 

4167 

032554 

302  10  0  00  000010 

CAIE 

ll.ll 

4168 

STOP* 

4169 

032555 

254  04  0  00  032556 

HALT 

.-^1 

4170 

032556 

324  00  0  00  032557 

JUMPA 

.-►1 

4171 

4172 

•**»♦*♦♦♦♦♦ 

4173 

4174 

002012 

SN=SN+1 

4175 

000011 

ll^ll^^ 

4176 

000042 

XX-XX*5 

4177 

032557 

201  12  0  00  lllli^l 

MOVEI 

ZZ*1,ZZ-XX 

4178 

032560 

201  11  0  12  000042 

MOVEI 

ZZ,XX(ZZ+1) 

4179 

032561 

302  11  0  00  000011 

CAIE 

ll.ll 

4180 

STOP* 

4181 

032562 

254  04  0  00  032563 

HALT 

.-►1 

4182 
4183 
418^ 

032563 

324  00  0  00  032564 

JUMPA 

."^1 

;*******«** 

4185 

4186 

002013 

SN=SN+1 

4187 

000012 

ii^ii'^y 

4188 

000047 

XX=XX+5 

4189 

032564 

201  13  0  00  777743 

MOVEI 

ZZ+1,ZZ-XX 

4190 

032565 

201  12  0  13  000047 

MOVEI 

ZZ,XX(ZZH) 

4191 

032566 

302  12  0  00  000012 

CAIE 

ll.ll 

4192 

STOP* 

4193 

052567 

254  04  0  00  032570 

HALT 

.+1 

<»194 

032570 

324  00  0  00  0325^1 

JUMPA 

.•^! 

'.195 

4196 

;»♦»»♦♦♦♦♦» 

4197 

4198 

002014 

SN=SN*1 

4199 

000013 

ll^ll^^ 

4200 

000054 

aX=XX*5 

4201 

032571 

201  14  0  00  llllV 

MOVEI 

ZZ*1,ZZ-XX 

4202 

032572 

201  13  0  14  000054 

MOVEI 

ii.tmi^y) 

4203 

032573 

302  13  0  00  000013 

CAIE 

ll.ll 

4204 

STOP* 

4205 

032574 

254  04  0  00  032575 

HALT 

M 

4206 

032575 

324  00  0  00  032576 

JUMPA 

.+1 

4207 

4208 

^  ***^****** 

4209 

4210 

002015 

S^^SNO 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;Setup  index  register 

;^Test  indexing 

;Pass  if  c(ac)=0,, address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0,, address  of  ac 

.-Test  failed  if  program  halts  here 
;Tc  loop  change  this  instruction* 


.-Setup  index  register 

;*T(?st  indexing 

;Pa3S  if  c(ac)=0,, address  of  ac 

;Tesl  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0,,add'-ess  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  insfuction* 


.J 


31 
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A211 

000014 

ii^ii^y 

A212 

000061 

XX=XX+5 

A213 

032576 

201  15  0  00  777733 

MOVE  I 

ZZ*1,ZZ-XX 

421A 

032577 

201  14  0  15  000061 

MOVE  I 

ZZ,XX(ZZ+1) 

A2i5 

032600 

302  14  0  00  000014 

CAIE 

u,u 

A216 

STOP* 

4217 

032601 

254  04  0  00  032602 

HALT 

,^^ 

421 8 

032602 

324  00  0  00  032603 

JUMPA 

.+1 

4219 

4220 

^♦♦♦♦♦♦♦•t'V 

4221 

4222 

002016 

SN=SN*1 

4223 

000015 

luii'^y 

4224 

000066 

XX=XX*5 

4225 

032603 

201  16  0  00  mm 

MOVE  I 

ZZ*1,ZZ-XX 

4226 

032604 

201  15  0  16  000066 

MOVE  I 

ZZ,XX(ZZ*1) 

4227 

032605 

302  15  0  00  000015 

CAIE 

U.ll 

4228 

STOP* 

4229 

032606 

254  04  0  00  032607 

HALT 

.♦1 

4230 

032607 

324  00  0  00  032610 

JUMhA 

.-^1 

4231 

4232 

;********«-« 

4233 

4234 

002017 

SN=SN*1 

4235 

000016 

ii^ii^y 

4236 

000073 

XX=XX^5 

4237 

032610 

201  17  0  00  777723 

MOVE  I 

ZZ*1,ZZ-XX 

4238 

032611 

201  16  0  17  000073 

MOVE  I 

UMUi^y) 

4239 

032612 

302  16  0  00  000016 

CAIE 

Z2M 

4240 

STOP* 

4241 

032613 

23  04  0  00  032614 

HALT 

.-n 

4242 

032614 

324  00  0  00  032615 

JUMPA 

.*1 

4243 

4244 

;♦♦♦♦♦♦»♦♦» 

4245 

SEQ  0094 


; Setup  index  register 

;*Test  indexing 

;Pass  if  c(ac)=0,, address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  register 

;*Test  indexing 

.-Pass  if  c(ac)=0,, address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


; Setup  index  reqister 

;*Test  index inr 

.-f-ass  if  c(d^)=0,, address  of  ac 

;Test  failed  if  program  halts  here 
;To  loop  change  this  ii  struct  ion* 


,..a' 


,,.....^ 
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42A6 

A2A7 

A248 

A2A9 

A250 

A251 

A252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 


032615  400  00  0  00  000000 

032616  250  00  0  00  000000 

032617  332  00  0  00  000000 

032620  254  04  0  00  032621 

032621  324  00  0  00  032622 


032622  474  00  0  00  000000 

032623  250  00  0  00  000000 

032624  312  00  0  00  034443 

032625  254  04  0  00  032626 

032626  324  00  0  00  032627 


SUBTTL  TEST  OF  EXCH  INSTRUCTION 


********** 


;This  test  ve'^ifies  that  exch  moves 
;In  this  case,  ac=e=0  and  c(ac)=c(e) 
.•Should  be  0.  if  c(ac)=0,  the  test 


C2100: 


SETZ 

EXCH 

SKIPE 

STOP^ 

HALT 

.♦1 

JUMPA 

.-^1 

********** 


;This  test  verifies  that  exch  moves 
;In  this  case,  ac=e=-1,,-1  and  c(ac) 
;AcO  should  be  -1,,-1.  if  c(ac)=-1. 


C2200: 


SETO 

EXCH 

CAME 

STOP* 

HALT 

JUMPA 


[-13 

.*1 
.•^1 


c(e)  into  ac  and  moves  c(ac)  into  e. 
.  hence,  the  final  result  in  acO 
passes. 

.•Preload  ac.e  with  0 

;*Exch  should  place  0  into  acO 

.-Pass  if  c(acO)=0 

.•Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


c(e)  into  ac  and  moves  c(ac)  into  e. 
=c(e).  hence,  the  final  result  in 
.-1,  the  test  passes. 

.'Preload  ac-e  with  -1*,-1 

.•♦Exch  should  place  -1,,-1   into  acO 

;Pass  if  c(acO)=-1,,-1 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


SEQ  0095 


********** 


r" 


5 
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SEQ  0096 


4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

<»309 

4310 

4311 


032627 
032630 
032631 
032632 

032633 
032634 
032635 

032636 
032637 


205  00  0  00  111111 
201  01  0  00  mill 
250  00  0  00  000001 
312  01  0  00  034510 

254  04  0  00  032634 
324  00  0  00  032635 
312  00  0  00  034511 

254  04  0  00  032637 
324  00  0  00  032640 


032640 
032641 
032642 
032643 

032644 
032645 
032646 

032647 
032650 


201  00  0  00  111111 
205  01  0  00  mill 
250  00  0  00  000001 

302  01  0  00  mm 

254  04  0  00  032645 
Ic  00  0  00  032646 
312  00  0  00  034510 

254  04  0  00  032650 
324  00  0  00  032651 


;This  test  verifies  that  exch  mo\/es  c(e)  into  ac  and  moves  c(ac)  into  e. 
;In  this  case,  c(ac)=-1,,0  and  c(e)=0,,-1.  hence,  the  final  result  in 
;The  ac  should  be  0,,-1  and  the  result  in  e  should  be  -1,,0.  if  these 
.•Results  occur,  the  test  passes. 


2400: 

MOVSI 

-1 

MOVE  I 

1,-1 

EXCH 

1 

CAME 

1,C-1,,0] 

STOP* 

HALT 

."H 

JUMPA 

.-^1 

2410: 

CAME 
STOP* 

0,C0,,-1] 

HALT 

M 

JUMPA 

.H 

**»♦•♦♦♦♦♦ 

;Preload  ac  with  -1,.0 
; "^reload  e  with  0,,-1 
.♦Exch  should  place  0,,-1 
.-Pass  if  c(e)=-1,,0 


into  ac  and  -1,,0  into  e 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  c(ac;=0,,-1 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  exch  moves  c(e)  into  ac  and  moves  c(ac)  into  e. 
;In  this  case,  c(ac)=0-,-1  and  c(e)=-1,,0.  hence,  the  final  result  in 
;The  ac  should  be  -1,,0  and  the  result  in  e  should  be  0,,-1.  if  these 
.•Results  occur,  the  test  passes. 


C2700: 


C2710: 


MOVE  I 

-1 

MOVSI 

1,-1 

EXCH 

1 

CAIE 

1,-1 

STOP* 

HALT 

.+1 

JUMPA 

.-H 

CAME 

,CXWD 

STOP* 

HALT 

M 

JUMPA 

.*1 

♦♦♦♦♦♦♦*♦* 


-1.0] 


.•Preload  ac  with  0,,-1 

.•Preload  e  with  -1,,0 

;*Exch  should  place  -1.,0  into  ac  and  0..-1  into  e 

.-Pass  if  c(e)=D,,-1 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  c(acT=-l,,0 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


~n 
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SEQ  0097 


4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 


032651  200  00  0  00  034512 


032652 
032653 
032654 
032655 
032656 
032657 
032660 
032661 

032662 
032663 


250  00 
250  00 
250  00 
250  00 
250  00 
250  00 
250  00 
312  00 


0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  034512 


254  04  0  00  032663 
324  00  0  00  032664 


032664 
032665 


032666 
032667 
032670 
032671 
032672 
032673 
032674 
032675 

032676 
032677 
032700 

032701 
032702 


400  00  0  00  000000 
474  01  0  00  000000 


250  00 
250  00 
250  00 
250  00 
250  00 
250  00 
250  00 
312  00 


0  00  000001 
0  00  000001 
0  00  000001 
0  00  000001 
0  00  000001 
0  00  000001 
0  00  000001 
0  00  034443 


254  04  0  00  032677 
324  00  0  00  032700 
312  01  0  00  034513 

254  04  0  00  032702 
324  00  0  00  032703 


;This  test  is  a  reliability  check  of  exch.  first,  ac,  e  are  preloaded 

;Uith  252525, .252525.  there,  exch  is  executed  7  times,  the  ac  is  then 

.•Checked  for  J52525, ,252525.   if  c(ac)=c(e)=252525,, 252525,  this  test 
.•Passes,  in  this  test  ac=e=ac0. 


C3000: 


MOVE 

REPEAT 

EXCH 

EXCH 

EXCH 

EXCH 

EXCH 

EXCH 

EXCH 

EXCH 

CAME 

STOP^ 

HALT 

JUMPA 


C252525252525] 
7, 


[252525252525] 

.+1 
.+1 


Preload  ace  with  252525,, 252525 

*Exch  should  place  252525,, 252525 
♦Exch  should  place  252525,, 252525 
*Exch  should  place  252525,, 252525 
♦Exch  should  place  252525,, 252525 
♦Exch  should  place  252525,, 252525 
♦Exch  should  place  252525,, 252525 
♦Exch  should  place  252525,, 252525 
♦Exch  should  place  252525.^252525 
Pass  if  c(acO)=252525,,25J525 

Test  failed  if  program  halts  here 
To  loop  change  this  instruction* 


into 

acO> 

into 

acO 

into 

acO 

into 

acO 

into 

acO 

into 

acO 

into 

acO 

into 

acO 

*•••*•*••* 


;This  test  verifies  that  exch  moves  c(ac)  into  e  and  c(e)  into  the  ac. 
.•In  this  case,  c(ac)=0  and  c(e)=-1,,-l.  exch  is  executed  7  times;  then, 
.-The  ac  is  checked  for  -1,,-1  and  e  is  checked  for  0.  if  either  of  these 
.•Results  are  not  found,  this  test  fails. 


C3100; 


C3110 


SETO 

1,0 

REPEAT 

7, 

EXCH 

1 

EXCH 

1 

EXCH 

1 

EXCH 

1 

EXCH 

1 

EXCH 

1 

EXCH 

1 

EXCH 

1 

CAME 

[-1] 

STOP'' 

HALT 

.+1 

JUMPA 

.+1 

CAME 

1,C03 

STOP* 

HALT 

.^1 

JUMPA 

.+1 

Preload  ac  with  0 
Preload  e  with  -1,,-1 


♦Exch 
♦Exch 
♦Exch 
♦Exch 
♦Exch 
♦Exch 
♦Exch 
♦Exch 
Pass  i 


should 
should 
should 
should 
should 
should 
should 
should 
f  c(ac) 


exchange 
exchange 
exchange 
exchange 
exchange 
exchange 
exchange 
exchange 
=-1,,-T 


c(ac) 
c(ac) 
c(ac) 
c(ac) 
c(ac) 
c(ac) 
cCac) 
c(ac) 


and  c(e)> 
and  c(e) 
and  c(e) 
and  c(e) 
and  cCe) 
and  c(e) 
and  c(e) 
and  c(e) 


Test  failed  if  program  halts  here 
To  loop  change  this  instruction* 
Pass  if  c(e)=0 

Test  failed  if  program  halts  here 
To  loop  change  this  instruction* 
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SEQ  0098 


A358 
A359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 


032703  474  00  0  00  000000 

032704  400  01  0  00  000000 

032705  202  00  0  00  000001 

032706  312  01  0  00  034443 

032707  254  04  0  00  032710 

032710  324  00  0  00  032711 

032711  312  00  0  00  034443 

032712  254  04  0  00  032713 

032713  324  00  0  00  032714 


SUBTTL  TEST  OF  MOVEM  INSTRUCTION 

;This  test  verifies  that  movem  places  c(ac)  into  e  and  does  not  modify  c(ac) 
;In  this  case,  c(ac)=-1,,-1  and  c(e)=0.  hence,  the  result  in  ac  and  e  should 
;Be  -1,,-1.  if  c(ac)  and  c(e)=-1,,-1,  this  test  passes 

.-Preload  ac  with  -1,,-1 
.•Preload  e  with  0 

;*Movem  should  place  -1,.-1  into  e 
.-Pass  if  c(e)=-1..-1 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  c(acT=-1..-1 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


3200: 

SETO 

SETZ 

1,0 

MOVEM 

1 

CAME 

1.C-1] 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

3210: 

CAME 
STOP* 

O.M] 

HALT 

.-H 

JUMPA 

.-H 

**flr******<^ 
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SEQ  0099 


A377 

A378 

A379 

A380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 

4399 

440C 

4401 

4402 

4403 

4404 

4405 

4406 

4407 


SUBTTL  TEST  OF  JFCL  INSTRUCTION  AND  ARITHMETIC  FLAGS 


032714  200  00  0  00  034514 

032715  255  17  0  00  032716 

032716  304  00  0  00  000000 

032717  254  04  0  00  032720 
032720  324  00  0  00  032721 


032721  200  00  0  00  034443 

032722  271  00  0  00  000001 

032723  255  17  0  00  032724 

032724  255  04  0  00  032726 

032725  334  00  0  00  000000 

032726  254  04  0  00  032727 

032727  324  00  0  00  032730 


********** 


;This  test  verifies  that  jfcl  17, .+1  always  returns  to  the  next  sequential 
.•Instruction,  if  jfcl  skips  the  next  instruction,  this  test  fails. 


C3300: 


MOVE 

[HALT  .'►3] 

JFCL 

17,. -Hi 

CAIA 

STOP'^ 

HALT 

.♦1 

JUMPA 

.-^1 

;This  instruction  should  not  affect  the  test 
;*Jfcl  should  return  to  next  sequential  instruction 
.•Skip  halt  instruction  if  jfcl  passes 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test  verifies  that  jfcl  17, .+1  always  clears  the  cryO  flag,  addi  is 
;Used  to  set  cryO.  then,  jfcl  17,. ■••I  is  executed  to  clear  cryO.  ifcl  4, .+2 
;Is  executed  to  determine  whether  crvO  was  reset  by  the  previous  jfcl.  this 
;Test  fails  if  jfcl  17,.'f1  did  not  clear  cryO. 


C3400: 


MOVE 

c-n 

ADDI 

1 

JFCL 

17, .♦I 

JFCL 

4,."^2 

SKI  PA 

STOP* 

HALT 

.♦1 

JUMPA 

.-^1 

.•Preload  ac  with  -1,,-1 

;Set  cryO  flag 

.•♦-Clear  arithmetic  flags 

;Pass  if  cryO   was  reset  by  previous  instruction 

.'Skip  halt  if  cryO  was  cleared 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


_J 


r 
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AA08 
4A09 
AA10 
4A11 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 


SEQ  0100 


;This  test  y/erifies  that  jfcL  17, .-♦■I  always  clears  the  cryl  flag. 

;Addi  IS  used  to  set  cry1.  then,  jfcl  17..*1  is  executed  to  clear  cry1. 

;Jfcl  4,."^2  IS  executed  to  determine  whether  cryl  was  reset  by  the  pre\/ious 

.-This  test  fails  if  jfcl  17, .♦I  did  not  clear  cryl. 


Jfcl. 


032730 
032731 
032732 
032733 
032734 

032735 
032736 


200  00  0  00  034443 
271  00  0  00  000001 
255  17  0  00  032733 
255  02  0  00  032735 
334  00  0  00  000000 

254  04  0  00  032736 
324  00  0  00  032737 


C3500: 


MOVE 

[-13 

ADDI 

1 

JFCL 

17, .+1 

JFCL 

2. .^2 

SKI  PA 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

;Preload  ac  with  -1,,-1 

;Set  cryl  flag 

;*Clear  arithmetic  flags 

.-Pass  if  crjfl  was  reset  by  previous 

;Skip  halt  if  cryl  was  cleared 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


instruction 


****«*«*** 


;This  test  verifies  that  jfcl  17,.'»'l  always  clears  the  arov  flag. 

;Addi  is  used  to  set  arov.  then,  jfcl  17,. +1  is  executed  to  clear  arov. 

;Jfcl  4,. "♦•2  is  executed  to  determine  whether  arov  was  reset  by  the  previous  jfcl. 

.-This  test  fails  if  jfcl  17,. +1  did  not  clear  arov. 


032737 
032740 
032741 
032742 
032743 

032744 
032745 


205  00  0  00  400000 
270  00  0  00  034442 
255  17  0  00  032742 
255  10  0  00  032744 
334  00  0  00  000000 

254  04  0  00  032745 
324  00  0  00  032746 


C3600: 


MOVSI 

400000 

ADD 

[XWD  400000,03 

JFCL 

17, .+1 

JFCL 

10,.-^2 

SKI  PA 

STOP* 

HALT 

.-^1 

JUMPA 

.*1 

.•Preload  ac  with  -1,,-1 

;Set  arov  flag 

; ♦'Clear  arithmetic  flags 

;Pass  if  arov  was  reset  by  previous 

;Skip  halt  if  arov  was  cleared 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


instruction 


********** 
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4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 


SEQ  0101 


032746  205  00  0  00  400000 

032747  270  00  0  00  034443 

032750  255  00  0  00  032752 

032751  334  00  0  00  000000 

032752  254  04  0  00  032753 

032753  324  00  0  00  032754 


032754  205  00  0  00  200000 

032755  270  00  0  00  034441 

032756  255  00  0  00  032760 

032757  334  00  0  00  000000 

032760  254  04  0  00  032761 

032761  324  00  0  00  032762 


;This  test  verifies  that  jfcl  0,  is  a  no-op. 

;In  this  test-  add  is  used  to  set  cryO.  then  jfcl  0..+2  is  executed. 

;If  jfcl  0,.*2  does  not  skip  the  next  instruction,  this  test  passes. 


C3700: 


MOVSI 

400000 

ADD 

c-n 

JFCL 

.+2 

SKI  PA 

STOP* 

HALT 

.•H 

JUMPA 

.■M 

;Preload  ac  with  most  negative  number 

;Set  cryO  flag 

;*Jfcl  should  return  to  next  sequential  instruction 

;Pass  if  jfcl  did  not  skip 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction'' 


****>**«t* 


;This  test  verifies  that  jfcl  0,  is  a  no-op. 

;In  this  test-  add  is  used  to  set  cryl.  then  jfcl  0^.*2  is  executed. 

;If  jfcl  O,.'*^^  does  not  skip  the  next  instruction,  this  test  passes. 


C4000: 


MOVSI 

200000 

ADD 

CXWD  200000, OJ 

JFCL 

.*2 

SKI  PA 

'  ■■.  ■- 1 

STOP* 

HALT 

.-►1 

JUMPA 

.-^1 

.•Preload  ac  with  most  negative  number 

;Set  cryl  flag 

;*Jfcl  should  return  to  next  sequential  instruction 

.-Pass  if  jfcl  did  not  skip 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


*«*****tt* 
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A466 
4A67 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4A89 
4490 
4491 
4492 
4493 
4494 


SEQ  0102 


032762  200  00  0  00  034443 

032763  271  00  0  00  000001 

032764  255  17  0  00  032766 

032765  254  04  0  00  032766 

032766  324  00  0  00  032767 


032767  200  00  0  00  034443 

032770  271  00  0  00  000001 

032771  300  17  0  00  000017 

032772  255  17  0  00  032774 

03277:  254  04  0  00  032774 

032774  324  00  0  00  032775 


verifies  that  addi  has  the  ability  to  set  an  arithmetic  flag  and 
I  17,. "♦•2'  lumps  whenever  any  arithmetic  flag  is  set.  in  this  test, 
lid  set  cryO  and  cryl.  then,  jfcl  should  skip  because  a  flag  was  set 


;This  test 

;That  'ifc 

:Addi  snoui 

;By  addi.  if  this  test  fail's,  addi  could  have  failed 

.'Could  have  failed  to  jump  when  a  flag  was  set. 


to  set  a  flag  or  jfcl 


C4100: 


MOVE 

ADDI 

JFCL 

STOP* 

HALT 

JUMPA 


C-1] 
1 
17,. ^2 

.♦1 
.*1 


**t******* 


;Preload  ac  with  all  ones 

;*Addi  should  set  cryO/1  flaas 

;*Jfcl  should  jump  because  flags  are  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  cai  does  not  clear  anjf  arithmetic  flags. 
.-First,  crvO  and  cryl  are  set  by  addi;  then  cai  is  executed. 
;Jfcl  should  jump  because  flags  are  set.  if  jfcl  does  not  jump, 
.'The  flags  were  cleared  by  cai.  hence,  cai  failed. 


C4200: 


MOVE 

C-U 

ADDI 

1 

CAI 

17,17 

JFCL 

17, .^2 

STOP* 

HALT 

.-^1 

JUMPA 

.-^1 

.'Preload  ac  with  -1,,-1 
.'Set  cyrO/1  flags 
.'*Cai  should  not  clear  flags 
.'Pass  if  cai  cleared  flags 

.'Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 
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SEQ  0103 


AA95 

AA96 

AA97 

AA98 

AA99 

A500 

A501 

A502 

A503 

A50A 

A505 

A506 

A507 

A508 

A  509 

A510 

A511 

A512 

A513 

A51A 

A515 

A516 

A517 

A518 

A519 

A520 

A521 

A522 

A'^23 


This  test  verifies  that  addi  has  the  ability  to  set  an  arithmetic  flag  and 
That  •jfcl  17,.*2'  iuiiips  whenever  anx   arithmetic  flag  is  set.  in  this  test, 
Addi  snould  set  cryO  and  cry1.  then  ifcl  should  skip  because  a  flag  was  set 
By  addi.  if  this  test  fails,  addi  could  have  failed  to  set  a  flag  or  jfcl 
: Could  have  failed  to  jump  when  a  flag  was  set. 


032775  200  00  0  00  03AAA3 

032776  271  00  0  00  000001 

032777  255  02  0  00  033001 

033000  25A  OA  0  00  033001 

033001  32A  00  0  00  033002 


CA300: 


MOVE 

c-n 

ADDI 

1 

JFCL 

2. .^2 

STOP* 

HALT 

.♦1 

JUMP  A 

.♦1 

********** 


;Preload  ac  with  all  ones 

;*Addi  should  set  cryl  flags 

;*Jfcl  should  jump  because  cryl  flag  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


This  test  verifies  that  addi  has  the  ability  to  set  an  arithmetic  flag 
That  'ifcl  17,. +2'  iumps  whenever  any  arithmetic  flag  is  set.  in  this 
Addi  should  set  crvO  and  cryl.  then,  jfcl  should  skip  because  a  flag 
Set  by  addi.  if  this  test  fails,  addi  could  have  failed  to  set  a 
;Jfcl  could  have  failed  to  jump  when  a  flag  was  set. 


and 
test, 
was 
flag  or 


033002  200  00  0  00  03AAA3 

033003  271  00  0  00  000001 
03300A  255  OA  0  00  033006 

033005  25A  OA  0  00  033006 

033006  32A  00  0  00  033007 


CAAOO: 


MOVE 

[-13 

ADDI 

1 

JFCL 

A,.-^2 

STOP* 

HALT 

.♦1 

JUMP  A 

."^1 

;Preload  ac  with  all  ones 

;*Addi  should  set  cryO  flag 

.-♦-Jfcl  should  jump  because  cryO  flag  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 
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SEQ  01 OA 


4524 
4525 
4526 
4527 
4528 
4529 
4530 
4551 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 


an  arithmetic  flag  and 


;This  test  verifies  that  addi  has  the  ability  to  set 

;That  'jfcl  17,."»-2*  jumps  whenever  any  arithmetic  fl. 

:Uas  set  by  add.  if  this  test  fails,  addi  could  have  failed  to  set  a  flag  or 

:Jfcl  could  have  failed  to  jump  when  a  flag  was  set. 


agjs  set.  because  a  flag 


033007  205  00  0  00  400000 

033010  270  00  0  00  034442 

033011  255  10  0  00  033013 

033012  254  04  0  00  033013 

033013  324  00  0  00  033014 


4500:  MOVSI 

400000 

ADD 

CXWD  400000,03 

JFCL 

10, .-^2 

STOP* 

HALT 

.^^ 

JUMP  A 

."H 

1r«**t***** 

;Preload  ac  with  all  ones 
;*Add  should  set  arov  flag 
;*Jfcl  should  jump  because  aruv  i 

;Test  failed  if  program  halts  her 
;To  loop  change  this  instruction* 


arov  flag  is  set 
here 


;This  test  verifies  that  ifcl  17, .+1  always  clears  the  floating  overflow 
;Flag  (fov).  first  jfcl  i7,.-f1  is  executed  to  clear  fov.  then,  jfcl  1,.+2 
;Is  executed  to  determine  whether  fov  was  cleared,  if  fov  was  clear,  this 
;Test  passes. 


033014  255  17  0  00  033015 

033015  255  01  0  00  033017 

033016  334  00  0  00  000000 

033017  254  04  0  00  033020 
033020  324  00  0  00  033021 


C4600: 


JFCL 

17, .-H 

JFCL 

1,.*2 

SKI  PA 

STOP* 

HALT 

.•n 

JUMPA 

.■n 

;*Clear  arithmetic  flags 
;Pass  if  fov  was  cleared 
;Skip  halt  if  test  passed 


Test 


failed  if  program  halts  here 
To  loop  change  this  instruction* 


***«*****• 


X)92 
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A551 

A552 

A553 

A554 

A555 

A556 

A557 

A558 

A559 

A560 

A561 

A562 

A563 

A56A 

AS65 

A566 

A567 

A568 

A569 

A570 

A571 

A572 

A573 

A57A 

A575 

A576 

A577 

A578 

A579 


SEQ  0105 


033021 
033022 
033023 
03302A 

033025 
033026 


033027 
033030 
033031 
033032 

033033 
03303A 


200  00  0  00  03AAA3 

271  00  0  00  000001 

255  13  0  00  03302A 

255  OA  0  00  033026 

25A  OA  0  00  033026 
32A  00  0  00  033027 


;This  test  verifies  that  jfcl  13,  does  not  reset  cryO. 

;First  cryO  and  crvl  are  set  by  addi;  then,  jfcl  13, .+2  is  executed 

;To  clear  all  arithmetic  flags  except  cryO. 

;This  test  passes  if  jfcl  13, .+1  did  not  reset  cryO. 

.-Reload  ac  with  -1,,-1 
;Set  cryO/l 

;*Jfcl  13,  should  not  reset 
;Fail  if  cry  0  was  reset 


A700:  MOVE 

r-n 

ADDI 

1 

JFCL 

13, .+1 

JFCL 

A, .+2 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

•»••♦*♦••• 

cryO 


;Test  failed  if  proaram  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  jfcl  15,  does  not  reset  cryl. 

;First  cryO  and  cryl  are  set  by  addi;  then,  jfcl15,.+2  is  executed 

;To  clear  all  arithmetic  flags  except  cryl. 

;This  test  passes  if  jfcl  15, .+1  did  not  reset  cry1. 


200  00  0  00  03AAA3 

271  00  0  00  000001 

255  15  0  00  033032 

255  02  0  00  03303A 

25A  OA  0  00  03303A 

32A  00  0  00  033035 


C5000: 


MOVE 

c-n 

ADDI 

1 

JFCL 

15, .+1 

JFCL 

2^,-^2 

STOP* 

HALT 

,^^ 

JUMPA 

.*i 

;Preload  ac  with  -1,,-1 
;Set  cryO/1 

;*Jfcl15,  should  not  reset 
;Fail  if  cryl  was  reset 


cryO 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


it -kick -kick -kit  it 


1093 


DFKAD  PDP10  <110  BASIC  INSTRUCTION  DIAGNOSTIC  (A)  0,2   MACRO  5:53A(1152)  10:53  2-0ct-84  Page  24 
DFKAD1  MAC      1-0ct-84  16:01        TEST  OF  JFCL  INSTRUCTION  AND  ARITHMETIC  FLAGS 


SEQ   0106 


4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4o06 

4607 

4608 


;This  test  verifies  that  jfcl  17,  does  not  reset 
;First  arov  is  set  by  add;  then,  jfcl  17, .-♦•2  is 
;To  clear  all  arithmetic  flags  except  arov. 
;This  test  passes  if  jfcl  17,.'»-1  did  not  reset  arov. 


arov. 
executed 


033035 
033036 
033037 
033040 

033041 
033042 


205  00  0  00  400000 
270  00  0  00  034442 
255  07  0  00  033040 
255  10  0  00  033042 

254  04  0  00  033042 
324  00  0  00  033043 


C5100: 


MOVSI 

ADD 

JFCL 

JFCL 

STOP* 

HALT 

JUMP  A 


400000 

CXWD  400000,0] 

7..*1 

l6,.*2 

.♦1 


;Preload  ac  with  -1,,-1 

;Set  arov 

;*Jfcl  17,  should  not  reset  arov 

;Fail  if  arov  was  reset 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


It  It  it  H*  it  tt  tit 


033043 
033044 
033045 
033046 
033047 

03305C 
033051 


255  17  0  00  033044 
400  00  0  00  000000 
270  00  0  00  000000 
255  10  0  00  033050 
334  00  0  00  000000 

254  04  0  00  033051 
324  00  0  00  033052 


;This  test  verifies  that  add 
; First,  all  flaos  are  reset, 
;Arov  is  then  cnecked.  if 


C5200: 


JFCL 

17, .+1 

SETZ 

ADD 

JFCL 

10, .+2 

SKI  PA 

STOP* 

HALT 

.♦1 

JUMP  A 

.•H 

of  0  to  0  will  not  set  arov. 
then  0  is  added  to  0  via  add. 
arov  is  set,  this  test  fails. 

.•Reset  arithmetic  flags 
;  Pre  load  ace  with  0 
;*Add  should  not  set  arov 
;Pass  if  arov  was  reset 
.'Skip  halt  if  add  passed 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


i'**t*****i^ 


J 


D9A 
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SEQ  0107 


A609 

A610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 


033052 
033053 
033054 
033055 
033056 

033057 
033060 


400  00  0  00  000000 
255  17  0  00  033054 
270  00  0  00  000000 
255  04  0  00  033057 
334  00  0  00  000000 

254  04  0  00  033060 
324  00  0  00  033061 


;This  test  verifies  that  add  of  0  to  0  will  not  set  cryO. 
;First,  all  flags  are  reset,  then  0  is  added  to  0  via  add. 
;CryO  is  then  cnecked.  if  cryO  is  set,  this  test  fails. 


; Reset  arithmetic  flags 
.-Preload  ace  with  0 
;*Add  should  not  set  cryO 
;Pass  if  cryO   was  reset 
;Skip  halt  if  add  passed 


5300:   SETZ 

JFCL 

17. .+1 

ADD 

JFCL 

4,.-^2 

SKIPA 

STOP* 

HALT 

.-^1 

JUMPA 

.-H 

♦•**•♦*♦•* 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  add  of  0  to  0  will  not  set  cryl. 
;First,  «ll  flaas  are  reset,  then  0  is  added  to  0  via  add. 
.•C-yl  is  then  cnecked.  if  cryl  is  set,  this  test  fails. 


033061 
033062 
033063 
033064 
033065 

0?;3066 
033067 


400  00  0  00  000000 
255  17  0  00  033063 
270  00  0  00  COOOCO 
255  02  0  00  033066 
334  00  0  00  000000 

254  04  0  00  033067 
324  00  0  00  033070 


C5400: 


SETZ 

JFCL 

17.. +1 

ADD 

JFCL 

2. .^2 

SKIPA 

STOP* 

HALT 

.-H 

JUMPA 

.+1 

.-Reset  arithmetic  flags 
.-Preload  ac.e  with  0 
;*Ad(^  should  not  set  cryl 
.-Pass  if  cry)   was  reset 
.-Skip  halt  if  add  passed 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


♦♦♦♦♦*♦♦♦♦ 


....._.^J 


1 


)95 
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SEQ  0108 


A639 

A6A0 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 


This  test  verifies  that  the  30x  and  the  31x  instruction  groups  do  not  affect 
The  arithmetic  flags,  first,  the  flags  are  cleared  and  acO  is  cleared;  then, 
Cai  and  cam  are  executed,  the  flags  are  then  checked,  if  any  of  the  flags 

.Are  set,  this  test  fails  and  cai  or  cam  is  considered  to  have  erroneously  set 

;The  flags. 


033070 
033071 
033072 
033073 
033074 
033075 

033076 
033077 


255  17  0  00  033071 
400  00  0  00  000000 
300  00  0  00  000000 
310  00  0  00  034443 
255  17  0  00  033076 
334  00  0  00  000000 

254  04  0  00  033077 
324  00  0  00  033100 


C5500: 


JFCL 

17, .-H 

SET2 

CAI 

CAM 

[-13 

JFCL 

17, .^^2 

SKI  PA 

STOP^ 

HALT 

.♦1 

JUMPA 

.♦1 

;Clear  all  flags 

; Clear  ac,0 

;*Cai  should  not  set  any  arithmetic  flag 

;*Cam  should  not  set  any  arithmetic  flag 

;Fail  if  any  flag  was  set 

;Skip  halt  if  test  passed 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


****«*«*** 


;This  test  verities  that  the  boolean  instruction  groups  do  not  affect  the 
.•Arithmetic  flags,  first  the  flags  are  cleared  and  acO  is  cleared;  then, 
;Xor  [03  and  xor  [-13  are  executed,  the  flags  are  then  checked,  if  any 
;0f  the  flags  are  set,  this  test  fails  and  xor  is  considered  to  have 
;Erroneously  set  the  flags. 


033100 
03310t 
033102 
033103 
033104 
033105 

033106 
033107 


255  17  0  00  033101 
474  00  0  00  000000 
430  00  0  00  034513 
430  00  0  00  034443 
255  17  0  00  033106 
334  00  0  00  000000 

254  04  0  00  033107 
32'.  00  0  00  033110 


C5600: 


JFCL 

17,. +1 

SETO 

XOR 

[03 

XOR 

[-13 

JFCL 

17,. -^2 

SKI  PA 

STOP'' 

HALT 

.-^1 

JUMPA 

.*1 

; Clear  all  flags 

;Clear  acO 

;*Xor  should  not  set  any  arithmetic  flag 

;*Xor  should  not  set  any  arithmetic  flag 

;Fail  if  any  flag  was  set 

;Skip  halt  if  test  passed 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction'' 


*****t**** 


..,__.. i 


L 


96  i 
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SEQ  0109 


A67A 
A675 
A676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 


;This  test  verifies  that  the  aobjx  instruction  group  does  do  not  affect  the 
.-Arithmetic  flags,  first  the  flags  are  cleared  and  acO  is  cleared:  then,  aobjn 
;And  aobjp  are  executed,  the  flags  are  then  checked,  if  any  of  the  flaos  are 
;Set,  th^s  test  fails  and  aobjn  or  aobjp  is  considered  to  have  erroneously  set 
;The  flays. 


033110  474  00  0  00  000000 

033111  255  17  0  00  033112 

033112  253  00  0  00  033113 

033113  252  00  0  00  033114 

033114  255  17  0  00  033116 

033115  334  00  0  00  000000 

033116  254  04  0  00  033117 

033117  324  00  0  00  033120 


C5700: 


SETO 

JFCL 

AOBJN 

AOBJP 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


17,. f1 
17, .-^2 


.*1 


.'Clear  all  flags 
.-Clear  ac-O 
.-♦Aobjn  should  not 
;*Aob]p  should  not 


********** 


.-Fail  if  any  flag  was  set 
.-Skip  halt  if  tst  passed 

.-Test  failed  if  program  halts  her 
;To  loop  change  this  instruction* 


set  any  arithmetic  arithmetic 
set  any  arithmetic  flag 


r 


?7  I 
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SEQ  0110 


4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 


;This  test  verifies  that  skip  does  not  affect  the  flags. 

.-First,  the  arithmetic  flags  are  cleared;  then,  skip  is  executed. 

;If  skip  sets  arov,  cryo,  cryl  or  fov,  this  test  fails. 


033120 
033121 
033122 
033123 

033124 
033125 


255  17  0  00  0331c1 
330  00  0  00  034443 
255  17  0  00  033124 
334  00  0  00  000000 

254  04  0  00  033125 
324  00  0  00  033126 


C5701 : 


JFCL 

SKIP 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


17,. "M 
Oj-1] 
1^.'^2 


.+1 


;Clear  all  flags 
.-♦Skip  should  not  set  any  flags 
;Fail  if  any  flag  is  set 
;Pass  if  no  flag  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;•*•*♦♦**•* 


;This  test  verifies  that  jump  does  not  affect  the  flags. 
.-First,  the  arithmetic  flags  are  cleared;  then,  jump  is  executed, 
;If  jump  sets  arov,  cryo.  cryl  or  fov.  this  test  fails. 


033126 
033127 
033130 
033131 

033132 
033133 


255  17  0  00  033127 
320  00  0  00  034443 
255  17  0  00  033132 
334  00  0  00  000000 

254  04  0  00  033133 
324  00  0  00  033134 


C5702: 


JFCL 

JUMP 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


17.. -H 

o.t-n 

1?..+2 


.+1 


;Clear  all  flags 
;*Jump  should  not  set  any  flags 
;Fail  if  any  flag  is  set 
;Pass  if  no  flag  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦*♦*••*•*♦ 


J 


r 


8 
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SEQ  0111 


4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 


033134 
033135 
033136 
033137 

033140 
033141 


033142 
033143 
033144 
033145 

033146 
033147 


255  17  0  00  033135 

254  00  0  00  033136 

255  16  0  00  033140 
334  00  0  00  000000 

254  04  0  00  033141 
324  00  0  00  033142 


255  17  0  00  033143 
200  02  0  00  000002 
255  17  0  0^   033146 

334  00  ^  0'^  w  nooo 

254  04  0  00  033147 
3c-   00  0  00  033150 


SUBTTL  TEST  OF  JRST  INSTRUCTION  AND  ARITHMETIC  FLAGS 


;*♦•**♦•*•* 


;This  test  verifies  that  'jrst,  0'  does  not  set  any  flags. 

.-First  the  arithmetic  flaas  are  reset;  then.  *jrst  0,.+T*  is  executed 

;The  arov,cryO  and  cryl  flags  are  then  checked,  if  any 

;0f  these  flags  are  set,  this  test  fails 


C6000: 


JFCL 

JRST 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


17,. -H 
.+1 
16, .+2 


.+1 


;Reset  all  flags 
;*Jrst  should  not  set  any 
;Pass  if  no  flags  are  set 
;Skip  halt  if  jrst  passes 


flags 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


•*♦**♦*»•*♦ 


;This  test  verifies  that  'move  2,2*   does  not  set  any  flags. 
.•First,  the  arithmetic  flags  are  reset;  then,  'move  2,2*   is  executed. 
;The  fov,arov,cryO  and  cry!  flags  are  then  checked,  if  any 
;0f  these  flags  are  set,  this  test  fails. 


C6100: 


JFCL 

MOVE 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


17.. -H 
1?,.+2 


.+1 


;Reset  all  flags 
;*Move  should  not  set  any  flags 
;Pass  if  no  flags  are  set 
;Skip  halt  if  move  passed 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


*«r******** 


n 
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SEQ  0112 


4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

476A 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 


033150  255  17  0  00  033151 


033151 
033152 
033153 
033154 

033155 
033156 


033157 
033160 


033161 
033162 
033163 
033164 
033165 

033166 
033167 


205  01  0  00  200000 
255  17  0  00  033153 

254  02  0  01  033154 

255  04  0  00  033156 

254  04  0  00  033156 
324  00  0  00  033157 


200  00  0  00  034443 
271  00  0  00  000001 


205  01  0  00  000000 
2x>  17  0  00  033163 

254  02  0  01  033164 

255  02  0  00  033166 
334  00  0  00  000000 

254  04  0  00  033167 
324  00  0  00  033170 


;This  test  verifies  that  jrst  2, .-••1(1)  will  set  the  arithmetic  flag 
.•Specified  in  ad.  in  this  case,  ad  specifies  the  cryO  flag. 
.-First,  all  flags  are  reset;  then  ad  is  set  to  specify  cryO. 
.'Next,  jrst  2,.'»'1(1)  is  executed  to  set  cryO.  crvO  is  then  checked. 
;CryO  is  set,  this  test  passes,  otherwise,  jrst  d,.'^^   is  faulty. 


if 


C6200:   JFCL    1?,.-^1 
SFLA6   CRYO 


MOVSI 

JFCL 

JRST 

JFCL 

STOP* 

HALT 

JUMPA 


1,CRY0 

2,.'H(1) 
4,.'^2 


.•Clear  all  flags 
*;Set  cryO  flag 


.'Reset  all  flags 
;Set  CRYO  flag 
;Pass  if  cryO  is  set 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test  verifies  that  jrst  2,.+(l)  will  set  th< 
.•Specified  in  ad.  in  this  case,  ad  contain  0. 


le  arithmetic  flag 

.wf,^v...w«  ...  -V V— w,  «v.  v^ — «...  w.  hence,  jrst  2, .+1(1) 

.•Should  reset  the  arithmetic  flags,  first,  the  crjfO/l,  flags  are  set  by  addi; 
;Then  the  flags  should  be  cleared  by  jrst  2..+1.  if  cryl  was 
;Test  passes,  otherwise,  jrst  2..+I  is  faulty. 


cleared,  the 


C6300: 


MOVE 

c-n 

ADDI 

1 

SFLA6 

0 

MOVSI 

1.0 
1^.  +  1 

JFCL 

JRST 

2. .+1(1) 

JFCL 

2, .^2 

SKI  PA 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

.•Preload  acO  with  -1..-1 

;Set  cryO/1  flags 

*; Reset  all  arithmetic  flags 


.•Reset  all  flags 
.-Set  0  flag 

.-Pass  if  cryl  is  reset 
.-Skip  halt  instruction 


if  test  passed 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


**♦♦***♦♦* 


J 


— 1. 


I 
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1  ,         . 


SEQ  0113 


A790 

A791 

4792 

4793 

479A 

A795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 


033170 
033171 


033172 
033173 
033174 
033175 
033176 

033177 
033200 


033201 

033201 
033202 
033203 
033204 

033205 
033206 


205  00  0  00  400000 
270  00  0  00  034443 


205  01  0  00  000000 
255  17  0  00  033174 

254  02  0  01  033175 

255  10  0  00  033177 
334  00  0  00  000000 

254  04  0  00  033200 
324  00  0  00  033201 


2u?  01  0  00  400000 
255  17  0  00  033203 

254  02  0  01  033204 

255  10  0  00  033206 

254  04  0  00  033206 
324  00  0  00  033207 


;This  test  verifies  that  jrst  2,.+(1)  will  set  the  arithmetic  flag 
.-Specified  in  ad.  in  this  case,  ad  contain  0.  hence,  jrst  2,. +1(1) 

are  set  by 


.-Should  reset  the  arithmetic  flags,  first-  the  crjfO/l,  flags 

;Then  the  flags  should  be  cleared  by  jrst  ^^.-^-l.  if  arov  was  cleared,  the 

.-Test  passes,  otherwise,  jrst  2,.*i  i 


add 


C6400:  MOVSI   400000 
ADD     [-13 
SFLAG   0 


faulty. 

.-Preload  acO  with  -1,,-1 
.-Set  cryO  and  arov  flags 
*.-Reset  all  arithmetic  flags 


MOVSI 

JFCL 

JRST 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


1.0 
1^.-^1 
2..'H(1) 
l6..*2 


.-Reset  all  flags 
.-Set  0  flag 
.-Pass  if  arov  is  reset 
.-Skip  halt  instruction 


if  test  passed 


.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


*****«>*•* 


.-This  test  verifies  that  jrst  2, .♦Id)  will  set  the  arithmetic  fl 
.-Specified  in  ad.  in  this  case,  ad  specifies  the  arov  flag. 
.-First,  all  flags  are  reset;  then  ad  set  to  specify  arov. 


ag 


.-Next,  jrst  2, .+1(1)  is  executed 
;Arov  is  set,  this  test  passes. 

C6500:  SFLAG   AROV 


to  set  arov.  arov  is 
otherwise,  jrst  2,. ♦I 

*;Set  arov  flag 


then  checked, 
is  faulty. 


if 


MOVSI 

JFCL 

JRST 

JFCL 

STOP* 

HALT 

JUMPA 


1 .AROV 
1?,.'H 
2,.*1(1) 
l6,.*2 

.♦1 
.*1 


.-Reset  all  flags 
.-Set  AROV  flag 
.-Pass  if  arov  was 


set 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


It  It  H  t  tit*  tit  H 


L_ 
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SEQ  01 U 


A829 

4830 

A831 

A832 

A833 

A83A 

4835 

A836 

A837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 


033207 

033207 
033210 
033211 
033212 

033213 
033214 


033215 

035215 
033216 
033217 
033220 

033221 
033222 


205  01  0  00  100000 
255  17  0  00  033211 

254  02  0  01  033212 

255  02  0  00  033214 

254  04  0  00  033214 
324  00  0  00  033215 


205  01  0  00  040000 
255  17  0  00  033217 

254  02  0  01  033220 

255  01  0  00  033222 

254  04  0  00  033222 
32'.  00  0  00  033223 


;This  test  werifies  that  jrst  2, .+1(1)  will  set  the  arithmetic  flag 
.•Specified  in  ad.  in  this  case,  ad  specifies  the  cryl  flag. 
.-First,  all  flags  are  reset;  then  ad  set  to  specify  cryl. 
.•Next,  jrst  2, .'♦•1(1)  is  executed  to  set  cryl.  crvl  is  then  checked. 

jrst  2,.+ 


if 


.•Cryl   is  set,   this  test  passes,     otherwise. 


1  is  faulty. 


C6600:   SFLAG   CRY1 


';Set  cryl  flag 


MOVSI 

JFCL 

JRST 

JFCL 

STOP* 

HALT 

JUMP  A 


KCRYI 
l^.-H 
2,.'^1(1) 


;Reset  all  flags 

;Set  CRY1  flag 

;Pass  if  cryl  was  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


**«*»***** 


.-This  test  verifies  that  jrst  2,.^1(1)  will  set  the  arithmetic  flag 
.•Specified  in  ac^.     in  this  case,  ad  specifies  the  fov  flag. 
.•First,  all  flags  are  reset;  then  ad  set  to  specify  fov. 
;Next,  jrst  2,."»'1(1)  is  executed  to  set  fov   fov  is  then  checked,  if 
;Fov  is  set,  this  test  passes,  otherwise,  jrst  2,.+1  is  faulty. 


C6700:   SFLAG   FOV 


MOVSI 

JFCL 

JRST 

JFCL 

STOP* 

HALT 

JUMPA 


1,F0V 
1^.+1 
2,.*1(1) 
1,.-^2 

.^^ 
.  +  1 


*;Set  fov  flag 


;Reset  all  flags 

;Set  FOV  flag 

;Pass  if  fov  was  set 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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SEQ  0115 


4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 


033223 

033223 
033224 
033225 
033226 
033227 

033230 
033231 


033232 

033232 
033233 
033234 
033235 
033236 
033237 
033240 

033241 
03324? 


205  01  0  00  040000 
255  17  0  00  033225 

254  02  0  01  033226 

255  00  0  00  033230 
334  00  C  0  000000 

254  04  0  00  033231 
324  00  0  00  033232 


205  01 
255  17 

254  02 
400  01 
2:>     02 

255  04 
33'.  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
01 
00 
00 


200000 
033234 
033235 
000000 
033237 
033241 
000000 


254  04  0  00  033242 
324  00  0  00  033243 


;This  test  verifies  that  jfcl  0,  should  never  jump. 

.-First,  fov  IS  set  via  irst2.  ;then  ifcl  0. 

;Is  executed,  if  jfcl  0,  does  not  skip,  this  test  passes. 


C7000:   SFLAG   FOV 


MOVSI 

JFCL 

JRST 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


1.F0V 
1^.*1 
2..'H(1) 
,.*2 


.  +  1 
.*1 


'.•Set  fov  flag 


;Reset  all  flags 
;Set  FOV  flag 
;*Jfcl  should  not 
;Pass  if  jfcl  did 


jump, 
not  jump 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


it  It  It 'kit  it  it  It  It  it 


the  arithmetic  flag 
2..'^1(1T 


rst 


.-This  test  verifies  that  jrst  2. .♦Id)  will  set 
.'Specified  in  ad.  in  this  case-  ad  contains  0.  hence,  irs 
.'Should  reset  the  arithmetic  flags,  first,  the  cryO,  flag  is  set  by 
;Jrst  ^..'♦•Kl)  with  c(ac1)=cryO.  then,  the  flags  should  be  cleared  by 
;Jrst  2..+1  with  c(ac1)=0.  if  cryO  was  cleared,  the  test  passes. 
.'Otherwise,  jrst  2. .♦I  is  faulty. 


C7100:  SFLAG   CRrO 


MOVSI 

JFCL 

JRST 

SETZ 

JRST 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


1,CRY0 

1?..+1 

2..'^1(1) 

1, 

2..*1(1) 

4..-^2 


.♦1 


*;Set  cryO  flags 

; Reset  all  flags 

;Set  CRYO  flag 

.'Setup  mask  to  clear  arithmetic  flags 

;*Reset  arithmetic  flags 

.'Pass  if  zryO   flag  was  reset 

.'Skip  halt  instruction  if  test  pssed 

.'Test  failed  if  program  halts  here 
;To  Loop  change  this  instruction* 


********** 


DFKAD  PDP10  KlIO 
DFKAD1   MAC 

4902 

4903 

4904 

4905 

4906 

4907 

4908 

4909  033243 

4910 

4911  033243 

4912  033244 

4913  033245 

4914  033246 

4915  033247 

4916  033250 

4917  033251 
4918 

4919  033252 

4920  033253 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 

4931  033254 

4932  033255 

4933  033256 

4934  033257 

4935  033260 
4936 

4937  033261 

4938  033262 
4939 
4940 
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.-This  test  verifies  that  jrst  2, .♦1(1)  will  set  the  arithmetic  flag 
.-Specified  in  ad.  in  this  case,  ad  contains  0.  hence,  jrst  2,.+1(1) 
;Snould  reset  the  arithmetic  flaas.  first-  the  fov-  flag  is  set  by 
;Jrst  2, .♦1(1)  with  c(ac1)=fov.  then,  the  flags  should  be  cleared  by 
;Jrst  2<."»-1  with  c(2d)=0.  if  fov/  was  cleared,  the  test  passes. 
.-Otherwise,  jrst  2, .♦I  is  faulty. 


SEQ  0116 


205  01  0 
255  17  0 
254  02  0 
400  01  0 

254  02  0 

255  01  0 
334  00  0 


00  040000 

00  033245 

01  033246 

00  000000 

01  033250 
00  033252 
00  000000 


254  04  0  00  033253 
324  00  0  00  033254 


25S  17  0  00  033255 
4uJ  01  0  00  000000 

254  02  0  01  033257 

255  17  0  00  033261 
334  00  0  00  000000 

254  04  0  00  033262 
324  00  0  00  033263 


C7200:   SFLAG   FOV 


MOVSI 

JFCL 

JRST 

SETZ 

JRST 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMP  A 


1-FOV 
1?,.*1 
2, .♦Id) 

2^.^1(1) 
1,.^2 


.♦1 
.♦1 


*;Set  fov  flag 

; Reset  all  flags 

.-Set  FOV  flag 

.-Setup  mask  to  clear  arithmetic  flags, 

.•♦Reset  arithmetic  flags 

.-Pass  if  fov  flag  was  reset 

.-Skip  halt  instruction  if  test  pssed 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  jrst  2, .♦1(1)  will  set  the  arithmetic  flag 
.-Specified  in  ad.  in  this  case,  ad  contains  0.  hence,  jrst  2,.^1(T) 
;Snould  reset  the  arithmetic  flags,  first,  the  arithmetic  flags  are 
.-Reset  by  jfcl  17,. ♦I.  then,  the  flags  should  be  cleared  by  jrst  2,. ♦I. 
.-If  all  the  arithmetic  flags  were  cleared,  the  test  passes,  otherwise, 
.-Jrst  2, .♦I  is  faulty. 


C7300: 


JFCL 

SETZ 

JRST 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


17,.^1 

2!. ♦Id) 
1?,.^2 


.♦1 
.♦1 


.-Clear  flags 

; Setup  mask  to  clear  aritmetic  flag? 

;*Reset  arithmetic  flags 

.-Pass  if  all  flags  are  reset 

;Skip  halt  instruction  if  test  passed 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


DFKAD  PDP10  KL10 
DFKAD1   MAC 


A941 
A9A2 
A9A3 
49A4 
A9A5 
A946 
A947 
A9A8 
A9A9 
A950 
A951 
A952 
A953 
A95A 
A955 
A956 
A957 
A958 
A959 
A960 
A961 
A962 
A963 
A96A 
A965 
A966 
A967 
A968 
A969 
A970 
A971 
A972 
A973 
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SUBTTL  TEST  OF  JSP  INSTRUCTION 


SEQ  0117 


;This  test  verifies  that  jsp  always  stores  the  flags  i 
;In  this  case,  the  flags  are  reset;  then,  jsp  is  execi 
; Checked  for  its  contents  non-ztro.  if  Cvac)=0,  it  ii 


and  pc  in  the  ac. 

;uted.     the  ac  is 
(^fickivcu  lur    iLs  ViUiik^iika  iiuii^^ci  w*     ii  %.  \tM\,  f  —v »    ii.    inoicates 
;That  neither  the  flags  nor  the  pc  was  saved,     hence,  thir  test  fails. 


then 


033263 
03326A 
033265 
033266 


033267 
033270 


A03  00  0  00  000001 
25A  02  0  01  033265 
265  00  0  00  033266 
336  00  0  00  000000 


25A  OA  0  00  033270 
32A  00  0  00  033271 


C7A00: 


SETZB 

JRST 

JSP 

SKIPN 

STOP 


1 

2,.-^1(1) 

.♦1 


.'Clear  ac  and  setup  mask 
;Reset  flags 
il( 


to  reset  flags 


HALT    .+1 
JUMPA   .+1 


;*Jsp  should  store  flags  and  pc  in  the  ac 

;Pass  if  c(ac)  is  non-zero 

*;It  did  not  store  any  flags  or  pc 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction 


;*»*♦**♦**♦ 


;This  test  verifies  that  jso  always  stores  the  pc  in  the  riqht  half  of  the  ac 
;In  this  case,  the  ac  is  cleared,  then,  jsp  is  executed,  the  right  half  of 
;The  ac  is  then  checked  for  its  contents  non-zero,  if  cCac  right  half) 
;Is  non-zero,  it  indicated  that  the  pc  was  saved;  and  this  test  passes. 


033271  AOO  00  0  00  000000 

033272  265  00  0  00  033273 

033273  606  00  0  00  777777 

03327A  25A  OA  0  00  033275 

033275  3^  •  00  0  00  033276 


C7500: 


SETZ 

JSP 

.-H 

TRNN 

-1 

STOP* 

HALT 

.*1 

JUMPA 

.-H 

; Clean  ac 

;*Jsp  should  store  the  pc  in  the  ac 

;Pass  if  c(ac)  in  non-zero 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


****•**•♦* 


0105 
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SEQ  0118 


A974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 


033276  402  00  0  00  000000 

033277  205  01  0  00  740000 

033300  254  02  0  01  033301 

033301  265  00  0  00  033302 

033302  607  00  0  00  111111 

033303  254  04  0  00  033304 

033304  324  00  0  00  033305 


033305  402  00  0  00  000000 


033306  205  01  0  00  400000 

033307  255  17  0  00  033310 

033310  254  02  0  01  033311 

033311  265  00  0  00  033312 

033312  607  00  0  00  400000 

033313  254  04  0  00  033314 

033314  32'.  00  0  00  033315 


This  test  verifies  that  jsp  always  stores  the  flags  in  the  left  half  of  the  ac 
Fist^  the  ac  is  cleared;  then,  some  flags  are  set  and  jsp  is  executed. 
The  left  half  of  the  ac  is  checked  for  its  contents  non-zero  to  determine 
Whether  the  flags  were  saved,  if  c(ac-left)  is  non-zero,  this  test  passes. 

; Clear  ac 

;Set  up  mask  to  set  flags 

;Set  some  arithmetic  flags 

;*Jsp  should  store  flags  in  the  ac 

;Pass  if  c(ac)  is  non-zero 


7600:   SETZM 

0 

MOVSI 

1,740000 

JRST 

2, .+1(1) 

JSP 

.+1 

TLNN 

-1 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

*•♦••♦•*♦♦ 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  jsp  always  stores  the  flags  in  the  left  half  of  the 
;Ac.  first,  the  ac  is  cleared:  then,  the  arov  flag  is  set  and  jsp  is  executed. 
;Then,  the  arov  flag  bit  of  the  left  half  of  the  ac  is  checked  for  its  contents 
;Non-zero  to  determine  whether  the  arov  flag  was  saved,  if  the  arov  flag  bit 
;0f  the  ac  is  set,  this  test  passes. 


C7700 


SETZM 
SFLA6 

MOVSI 

JFCL 

JRST 

JSP 

TLNN 

STOP* 

HALT 

JUMPA 


•*♦*•♦♦•♦♦ 


0 
AROV 

1 .AROV 

1?,.-H 

2,.-H(1) 

.+1 

AROV 

.-H 
.+1 


;Clear  the  ac 
*;Set  arov  flag 


;Reset  all  flags 
;Set  AROV  flag 
;*Jsp  should  save 
.-Pass  if  arov  was 


the  flags 
saved 


in  the  ac-left 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


)106 
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SEQ  0119 


5009 

5010 

5011 

5012 

5013 

50U 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

:044 

5045 

5046 

5047 


;This  test  verifies  that  jsp  always  stores  the  flags  in  the  left  half  of  the 
;Ac.  first,  the  ac  is  cleared;  then,  the  cryO  flag  is  set  and  jsp  is  executed. 
;Then,  the  cryO  flag  bit  of  the  left  half  of  the  ac  is  checked  for  its  contents 
;Non-2ero  to  determine  whether  the  cryO  flag  was  saved,  if  the  cryO  flag  bit 
;0f  the  ac  is  set,  this  test  passes. 


033315  402  00  0  00  000000 


033316  205  01  0  00  200000 

033317  255  17  0  00  033320 

033320  254  02  0  01  033321 

033321  265  00  0  00  033322 

033322  607  00  0  00  200000 

033323  254  04  0  00  033324 

033324  324  00  0  00  033325 


C10000:  SETZM 
SFLA6 

MOVSI 

JFCL 

JRST 

JSP 

TLNN 

STOP* 

HALT 

JUMP  A 


0 
CRYO 

1-CRYO 
l^.+l 
2, .+1(1) 
.+1 
CRYO 

.-H 
.+1 


Clear  the  ac 
';Set  cryO  flag 


;Reset  all  flags 
;Set  CRYO  flag 
;*Jsp  should  save 
;Pass  if  cryO  was 


the  flags 
saved 


in  the  ac-left 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  jsp  always  stores  the  flags  in  the 
;Ac.  first,  the  ac  is  cleared:  then,  the  cryl  flag  is  set  a 
;Then,  the  cryl  flag  bit  of  the  left  half  of  the  ac  is  chec 
;"^on-2ero  to  determine  whether  the  flag  was  saved,  if  the 
;Ac  is  set,  this  test  passes. 


left  half  of  the 
and  jsp  is  executed. 
:hecked  for  its  contents 
the  cryl  flag  bit  of  the 


033325  400  00  0  00  000000 


033326  20S  01  0  00  100000 

033327  2^-^  17  0  00  033330 

033330  254  02  0  01  033331 

033331  265  00  0  00  033332 

033332  607  00  0  00  100000 

033333  254  04  0  00  033334 

033334  324  00  0  00  033335 


CI  01 00: 


SETZ 
SFLA6 

MOVSI 

JFCL 

JRST 

JSP 

TLNN 

STOP* 

HALT 

JUMPA 


CRY1 

I.CRYI 

l^.-H 

2,.'H(1) 

.•••I 

CRY1 

.+1 
.+1 


;CL.<ir  ac 
*;Set  crvl  flag 


.•Reset  all  flags 
;Set  CRY1  flag 
;«Jsp  should  save 
;Pass  if  arcv  was 


the  flags 
saved 


in  the 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


•  •♦♦♦<rx*»* 


107 
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SEQ  0120 


J 


5048 

5049 

5050 

5051 

j052 

5053 

5054 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

5064 

5065 

5066 

5067 

5068 

5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 


033335  400  00  0  00  000000 


033336 
033337 
033340 
033341 
033342 

033343 
033344 


033345 

033345 
033346 
033347 
033350 
033351 

033352 
033353 


205  01  0  00  040000 
255  17  0  00  033340 
254  02  0  01  033341 
265  00  0  00  033342 
607  00  0  00  040000 

254  04  0  00  033344 
324  00  0  00  033345 


205  01  0  00  000000 
255  17  0  00  033347 
2r  02  0  01  033350 
265  00  0  00  033351 
603  00  0  00  761777 

254  04  0  00  033:^53 
324  00  0  00  033354 


033354  265  00  0  00  033356 

033355  254  04  0  00  033356 

033356  324  00  0  00  033357 


;This  test  v/en'fies  that  jsp  always  stores  the  flags  in  the  left  half  of  the 
;Ac.  first,  the  ac  is  cleared;  then,  the  fov  flag  is  set  and  jsp  is  executed. 
;Then,  the  fov  flag  b't  of  the  left  naif  of  the  ac  is  checked  for  its  contents 
;Non-zero  to  determine  whether  the  fov  flag  was  saved,  if  the  fov  flag  bit  of 
;The  ac  is  set,  this  test  passes. 


C10200:  SETZ 
SFLAG 

MOVSI 

JFCL 

JRST 

JSP 

TLNN 

STOP* 

HALT 

JUMPA 


FOV 

I.FOV 
l^.+l 
2, .+1(1) 
.+1 
FOV 

.+1 
.+1 


.-Clear  the  ac 
*;Set  fov  flag 


.-Reset  aU  flags 

.-Set  FOV  flag 

;*Jsp  should  save  the  flags 

.-Pass  if  fov  was  saved 


in  the  ac-left 


.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


.-This  test  verifies  that  jsp  will  store  only  flaos  that  exist,  i.e.  reset 
,-FlaQs  will  not  be  set  in  the  ac.  only  flags  tnat  are  clearable  by  jrstf 
.-Will  be  checked  here,  first  all  clearable  flags  are  reset  by  jrstf.  then 
;Jsp  is  executed,  the  ac  is  then  checked,  if  any  clearable  flags  are  set 


;In  the  ac.  this  test  fails. 


C10300:  SFLAG 

MOVSI 

JFCL 

JRST 

JSP 

TLNE 

STOP* 

HALT 

JUMPA 


•it  It -kit  it  tit  tit  It 


i^.-n 

2.."H(1) 

.+1 

76^777 


*.-Clear  all  clearable  flags 


.-Reset  all  flags 

.-Set  0  flaq 

;*Jsp  should  not  store  clearable  falgs 

;Fail  if  any  clearable  flag  is  set 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  jsp  always  jumps. 

.-In  this  test,  jsp  .♦2  is  executed,  if  jsp  jumps,  the 

.-Test  passes,  otherwise,  this  test  halts. 


CI  0400: 


JSP 

.*2 

STOP* 

HALT 

.-^1 

JUMPA 

.O 

.-*Jsp  should  always  jump 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


J 


n 
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5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 


TEST  JRST  INSTRUCTION 

SUBTTL   TEST  JRST  INSTRUCTION 


SEQ  0121 


*********t 


;This  test  verifies  that  jrst  always  jumps. 
;In  this  test-  jrst  .♦2  is  executed. 
.-Otherwise,  this  test  halts. 


033357  254  00  0  00  033361 

033360  <^54  04  0  00  033361 

033361  324  00  0  00  033362 


C10500:  JRST 

.♦2 

STOP* 

HALT 

.'^l 

JUMPA 

.-^1 

if  jrst  jumps,  the  test  passes; 

;*Jrst  0,  should  always  jump 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 
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SEQ  0122 


5109 

5110 

5111 

5112 

5113 

511A 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 


SUBTTL  TEST  OF  AOBJX  INSTRUCTIONS 


033362  AOO  00  0  00  000000 

033363  253  00  0  00  033364 

033364  312  00  0  00  034417 

033365  254  04  0  00  033366 

033366  324  00  0  00  033367 


033367  200  00  0  00  034515 

033370  252  00  0  00  033371 

033371  312  00  0  00  034516 

033372  254  04  0  00  033373 

033373  324  00  0  00  033374 


• 

;This  test  \jeri 
.-First,  the  ac 
;For  1,J.  if 


ties  that  aobin  always  adds  1  to  both  halves  of  the  ac. 
is  cleared;  then,  aobjn  is  executed  and  the  ac  is  checked 
c(ac)=1,J,  this  test  passes. 


C11200:  SETZ 
AOBJN 
CAME 
STOP* 
HALT 
JUMPA 

CXWD  1,1] 

;♦♦»*♦♦**•♦ 

; Clear  the  ac 
;*Aobjn  should  add  1 
;Pass  if  c(ac)=l,,1 


to  both  haUes  of  the  ac 


.-This  test  Meri 
;First,  the  ac 
;For  1,,1.  if 

C1 1300:  MOVE 
AOBJP 
CAME 
STOP* 
HALT 
JUMPA 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


fies  that  aobip  always  adds  1  to  both  halves  of  the  ac. 
is  cleared;  then  aobjp  is  executed  and  the  ac  is  checked 
c(ac)=1,,1,  this  test  passes. 


CXWD  377777,3777773 
CXWD  400000,400000: 

.+1 
.♦1 


;Preload  ac  with  177777 , ,177777 

;*Aobjp  should  add,  to  both  halves  of  the  ac 

;Pass  if  c(ac)=400600, 400000 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


J 
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5138 
5139 
5K0 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 


SEQ  0123 


033374  400  00  0  00  OOOQOO 

033375  253  00  0  00  033377 

033376  334  00  0  00  000000 

033377  254  04  0  00  033400 
033400  324  00  0  00  033401 


033401  400  00  0  00  000000 

033402  252  00  0  00  033404 

033403  254  04  0  00  033404 

033404  324  00  0  00  033405 


;This  test  ven' 
.•First,  the  ac 
;Because  c(ac) 


ties  that  aobjn  will  not  jump  when  c(ac)  is  positive 

is  cleared;  and  aobin  is  executed,  aobjn  should  not  jump 

is  positive,  if  aobjn  jumps,  this  test  fails. 


C11400: 


SETZ 
AOBJN 
SKI  PA 
STOP* 
HALT 

JUMPA 


*2 


+1 
+1 


.-Clear  the  ac 

;*Aobjn  should  not  jump  when  c(ac)  is  positive 

;Pass  if  aobjn  does  not  jump 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


« 


.-This  test  veri 
.•First,  the  ac 
.'Because  c(ac} 

C11500:  SETZ 
AOBJP 
STOP* 
HALT 
JUMPA 


fies  that  aobjp  will  jump  when  c(ac)  is  positive 

is  cleared;  and  aobip  is  executed,  aobip  should  jump 

is  positive,  if  aobjp  does  not  jump,  this  test  fails. 


.+2 
.+1 


;Clear  the  ac 

;*Aobjp  should  jump  because  c(ac)  is  positive 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


1 
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SEQ   0124 


5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 


033405  200  00  0  00  034516 

033406  253  00  0  00  033410 

033407  254  04  0  00  033410 
033410  324  00  0  00  033411 


033411  200  00  0  00  034516 

033412  252  00  0  00  033414 

033413  334  00  0  00  000000 

033414  254  04  0  00  033415 

033415  324  00  0  00  033416 


033416  4?  •  00  0  00  000000 

033417  253  00  0  00  033420 

033420  332  00  0  00  000000 

033421  254  04  0  00  033422 

033422  324  00  0  00  033423 


;This  test  verifies  that  aobin  will  jump  when  c(ac)  is  negative,  first, 
;The  ac  is  preloaded  with  400000,, 0;  and  aobjn  is  executed,  aobjn  should 
;Jump  because  c(ac)  is  negative,  if  aobjn  does  not  jump,  this  test  fails. 

.•Preload  ac  with  400000,, 400000 

;*Aobjn  should  jump  because  c(ac)  is  negative 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  aobio  will  not  jump  when  c(ac)  is  negative,  first, 
;The  ac  is  preloaded  with  400000,, 0;  and  aobjp  is  executed,  aobip  should  not 
:Jump  because  c(ac)  is  negative,  if  aobjp  jumps,  this  test  fails. 

;Preload  ac  with  400000,, 400000 

;*Aobjp  should  not  jump  because  c(ac)  is  negative 

;Pass  if  aobjp  does  not  jump 


C1 1600:  MOVE 
AOBJN 
STOP* 
HALT 
JUMPA 

CXWD  400000,400000] 
.+1 

.*••*♦**•** 

C1 1700:  MOVE 
AOBJP 
SKIPA 
STOP* 
HALT 
JUMPA 

CXWD  400000,4000003 
.+2 

.+1 
.+1 

;**•**•♦••♦ 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  there  is  no  carry  from  bit  18  to  bit  17  of  the  ac 
;0n  aobjn.  the  ac  is  preloaded  with  -1,,-*;  then  aobjn  is  executed,  aobjn 
; Should  add  one  to  both  halves  of  the  ac  without  generating  a  carry  from 
;Bit  18  to  bit  17.  if  no  carry  was  generated,  this  test  passes. 

; Pre load  ac  with  -1,,  -1 

;*Aobjn  should  not  cause  a  carry  from  bit  18  to  17 

;Pass  if  c(ac)=0  (no  carry  was  generated) 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


C12000:  SETO 

AOBJN 

.•n 

SKIPE 

STOP* 

HALT 

.-n 

JUMPA 

.-H 

********** 
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SEQ  0125 


5200 
5201 
5202 
5203 
520A 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 

5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 


033423  255  17  0  00  033424 

033424  211  00  0  00  000000 

033425  255  04  0  00  033427 

033426  254  04  0  00  033427 

033427  324  00  0  00  033430 

033430  255  02  0  00  033432 

033431  254  04  0  00  033432 

033432  324  00  0  00  033433 

033433  255  10  0  00  033435 

033434  334  00  0  00  000000 

033435  254  04  0  00  033436 

033436  324  00  0  00  033437 

033437  255  01  0  00  033441 

033440  334  00  0  00  000000 

033441  254  04  0  00  033442 

033442  324  00  0  00  033443 


033443  255  17  0  00  033444 

033444  210  00  0  00  034443 

033445  255  17  0  00  033447 

033446  334  00  0  00  000000 

033447  254  04  0  00  033450 
033450  324  00  0  00  033451 


SUBTTL  TEST  SETTING  OF  ARITHMETIC  FLAGS  VIA  MOVNX  AND  MOVMX 

;This  test  verifies  that  movm*  sets  cryO  and  cryl  flags  only  when  the  data 
;Is  0.  first,  the  arithmetic  flags  are  reset;  then,  movni  is  executed  with 
;Data  of  zeros,  the  arithmetic  flags  are  checked.  cryO/1  are  set  and  arov 
;And  fov  reset,  this  test  passes. 


C12100: 


JFCL 

17,, +1 

MOVNI 

0 

JCRYO 

.^2 

STOP* 

HALT 

.-H 

JUMP  A 

.-H 

JCRY1 

.^2 

STOP* 

HALT 

.+1 

JUMPA 

.-H 

JOV 

.t2 

SKI  PA 

STOP* 

HALT 

.-n 

JUMPA 

.-^1 

JFOV 

.♦2 

SKI  PA 

STOP* 

HALT 

.-H 

JUMPA 

.•H 

.•Clear  flags 

;*  Movni  0  should  set  cryO/1 

;Pass  if  cryO  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  cryl  is  set 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  arov  reset 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  fov  reset 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦♦♦»»♦♦**♦ 


;This  test  verifies  that  movn  will  not  set  arithmetic  flags  when  the  data 
;Is  -1,,-1.  first,  the  flaqs  are  reset;  then,  movn  C-1,,-1]  is  executed. 
;The  arithmetic  flags  are  cnecked.  if  any  arithmetic  flag  is  set,  this 
;Test  fails. 


C12200:  JFCL  17,. +1 

MOVN  c-n 

JFCL  17, .+2 

SKIPA 

STOP* 

HALT  .+1 

JUMPA  .♦I 


;Clear  flags 

;*Movn  [-1,,-1]  should  set  arithmetic  flags 

;Fail  if  an  arithmetic  flag  is  set 

;Skip  halt  instruction  if  movn  passed. 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


_.^^:,J 


DFKAD  PDP10  KUO 

DFKAD1 

MAC 

524A 

52A5 

52A6 

5247 

5248 

5249 

5250 

033451 

5251 

033452 

5252 

033453 

5253 

5254 

033454 

5255 

033455 

5256 

033456 

5257 

5258 

033457 

5259 

033460 

5260 

033461 

5261 

033462 

5262 

5263 

033463 

5264 

033464 

5265 

033465 

5266 

033466 

5267 

5268 

033467 

5269 

03347C 

5270 

5271 

BASIC  INSTRUCTION  DIAGNOSTIC  (4)  0,2   MACRO  X53A(1152)  10:53  2-0ct-84  Page 
l-Oi.t-84  16:01        TEST  SETTING  OF  ARITHMETIC  FLAGS  VIA  MOVNX  AND  MOVMX 

and 
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SEQ  0126 


;This  test  verifies  that  movn  will  set  the  arov 

;Cry1  flags  only  when  the  data  is  400000-,0 

.-First,  tFie  flags  are  reset;  then,  movn  L400000,,0]  is  executed. 

;The  arithmetic  flags  are  checked. 

;If  arov  and  cryl  are  set  and  cryO  and  fov  are  reset,  this  test  passes. 


255  17  0  00  033452 
210  00  0  00  034442 
255  10  0  00  033455 

254  04  0  00  033455 
324  00  0  00  033456 

255  02  0  00  033460 

254  04  0  00  033460 
324  00  0  00  033461 

255  04  0  00  033463 
334  00  0  00  000000 

254  04  0  00  033464 
324  00  0  00  033465 

255  01  0  00  033467 
334  00  0  00  000000 

254  04  0  00  033470 
324  00  0  00  033471 


CI  2300: 


JFCL 

17, ."H 

MOVN 

[XWD  400000,0] 

JOV 

.+2 

STOP^ 

HALT 

.-H 

JUMPA 

.+1 

JCRY1 

.^2 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

JCRYO 

.^2 

SKI  PA 

STOP-* 

HALT 

.+1 

JUMPA 

.+1 

JFOV 

.^2 

SKI  PA 

STOP* 

HALT 

.-H 

JUMPA 

.-n 

♦♦»*••*••• 


.•Clear  arithmetic  flags 

;*Movn  C400000,,0]  should  set  arov  and  cryl  only 

;Pass  if  arov  is  set 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  cryO  is  set 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.•Pass  if  cryO  is  reset 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  fov  is  reset 


;Test  failed  if  program  halts  here 
;To  loop  change  tnis  instruction* 
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SEQ  0127 


5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 


;This  test  verifies  that  movm  will  set  the  arov  and 

;Cry1  flags  only  when  the  data  is  400000. ,0 

.•First,  tne  flags  are  reset;  then,  movm  l400000,,0]  is  executed. 

;The  arithmetic  flags  are  checked. 

;If  arov  and  cry1  are  set  and  cryO  and  fov  are  reset,  this  test  passes. 


033471  255  17  0  00  033472 

033472  214  00  0  00  034442 

033473  255  10  0  00  033475 

033474  254  04  0  00  033475 

033475  324  00  0  00  033476 

033476  255  02  0  00  033500 

033477  254  04  0  00  033500 

033500  324  00  0  00  033501 

033501  255  04  0  00  033503 

033502  334  00  0  00  000000 

033503  254  04  0  00  033504 

033504  324  00  0  00  033505 

033505  255  01  0  00  033507 

033506  334  00  0  00  000000 

033507  254  04  0  00  033510 
03351 C  324  00  0  00  033511 


C12301 


JFCL 

17, .+1 

MOVM 

CXUD  400000,0] 

JOV 

.-^2 

STOP* 

' 

HALT 

.+1 

JUMP  A 

.+1 

JCRY1 

.^2 

STOP* 

HALT 

.'H 

JUMP  A 

.•H 

JCRYO 

.^2 

SKI  PA 

STOP* 

HALT 

.-^1 

JIIMPA 

."H 

Ji  OV 

.*2 

SKI  PA 

STOP* 

HALT 

.•n 

JUMPA 

.■n 

.•Clear  arithmetic  flags 

;*Movm  C400000,,0]  should  set  arov  and  cryl  only 

;Pass  if  arov  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  cryO  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  cryO  is  reset 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  fov  is  reset 


;Test  failed  if  program  halt*^  here 
;To  loop  change  tnis  instruction* 


********** 
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5300  SUBTTL  TEST  OF  AOS  AND  SOS  INSTRUCTIONS 

5301  ■   .  ':  "y'\-- '■■'/' "\ 

5302  •»»»♦**♦♦♦* 

5303  '  I 

5304  ;This  test  verifies  that  aos  adds  1  to  memory  and  does  not  skip. 

5305  ;First,  e  is  cleared;  then,  aos  is  executed,  next  e  is  checked  for  1.  1 

5306  ;If  c(e)  is  not  1  or  aos  skipped,  this  test  fails.  1 

5307  I 

5308  033511  400  00  0  00  000000  C12600:  SET2                     ;Clear  e 

5309  033d12  350  00  0  00  000000  AOS                      ;*Aos  should  add  1  to  c(e)  and  not  skip           1 

5310  033513  302  00  0  00  000001  CAIE    1                  ;Pass  if  c(e)=0,,1  andaos  did  not  skip 

5311  S^OP'^  t 

5312  033514  254  04  0  00  033515  HALT    .+1                 ;Test  failed  if  program  halts  here 

5313  033515  324  00  0  00  033516  JUMPA   .  +  1                 ;To  loop  change  this  instruction'' 
5314 

5315  ;*♦♦♦♦♦♦*♦#:                                                                                                             I 

5316  "  ^-  'i 

5317  .-This  test  verifies  that  aos  adds  1  to  memory  and  does  not  skip,  first,  I 

5318  ;E  is  preloaded  with  -1,,-1;  then,  aos  is  executed,  next  e  is  checked  for  0.  j 

5319  ;If  c(e)  is  not  0  or  aos  skipped,  this  test  fails.  1 

5320  ,  ..^--1 

5321  033516  474  00  0  00  000000  C12700:SETO                      ;Preload  e  with  -1,,-1                        i 

5322  033517  350  00  0  00  000000  AOS                      ;*Aos  should  add  1  to  c(e)  and  not  skip 

5323  033520  302  00  0  00  000000  CAIE                     ;Pass  if  c(e)=0,,0  and  aos  did  not  skip 

5324  STOP'' 

5325  03352'  254  04  0  00  033522  HALT    ."^1                 ;Test  failed  if  program  halts  here               f 

5326  033522  324  00  0  00  033523  JUMPA   .-^1                 ;To  loop  change  this  instruction*                I 

5327  ..,.,_.,  ,,,  ,,.^  ,           ■.;■':■■  ;^ 

5328  •♦♦»♦♦♦♦♦** 
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5329 
5330 
5331 
5332 
5333 
533A 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
:)347 
5348 
5349 
5350 
5351 
5352 
5353 


SEQ  0129 


033523  400  00  0  00  000000 

033524  370  00  0  00  000000 

033525  312  00  0  00  034443 

033526  254  04  0  00  033527 

033527  324  00  0  00  033530 


033530  201  00  0  00  000001 

033531  370  00  0  00  000000 

033532  302  00  0  00  000000 

033533  254  04  0  00  033534 

033534  324  00  0  00  033535 


.-This  test  y/en'fies  that  sos  subtracts  1  from  memory  and  does  not  skip. 
.•First,  e  is  cleared;  then,  sos  is  executed,  next  e  is  checked  for  -1,,-1. 
;If  c(e)  is  not  -1,,-1  or  sos  skipped,  this  test  fails. 


C13100: 


SETZ 

SOS 

CAME 

[-1 

STOP* 

HALT 

.♦1 

JUMPA 

.-n 

; Clear  e 

;*Sos  should  subtract  1  from  c(e)  and  not  skip 

;Pass  if  c(e)=-1,,-1  and  sos  did  not  skip 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


t«****t*** 


.-This  tert  y/erifies  that  sos  subtracts  1  from  memory  and  does  not  skip. 
.•First,   is  preloaded  with  a;  then,  sos  is  executed,  next  e  is  checked  for  0. 
;If  c(e)  is  not  0  or  sos  skipped,  this  test  fails. 

; Pre load  e  with  1 

;*Sos  should  subtract  1  from  c(e)  and  did  not  skip 

;Pass  if  c(e)=0  and  sos  oid  not  skip 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


CI 3200:  MOVE I 

1 

SOS 

CAIE 

0 

STOP* 

HALT 

.*1 

JUMPA 

.•^1 

********** 
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SEQ  0130 


535A 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 


;This  test  verifies  that  sos  sets  cryO/1  flags 
.-Other  than  400000,, 0.  in  this  case,  c(e)=1. 
;Sos  is  executed,  the  flags  are  checked,  if 
;And  fov  are  reset,  this  test  passes. 


if  c(e)  is  a  non-zero  number 
first  the  flags  are  reset;  then 
cryO  and  cryl  are  set  and  arov 


033535  255  17  0  00  033536 

033536  201  00  0  00  000001 

033537  370  00  0  00  000000 

033540  255  04  0  00  033542 

033541  254  04  0  00  033542 

033542  324  00  0  00  033543 

033543  255  02  0  00  033545 

033544  254  04  0  00  033545 

033545  324  00  0  00  033546 

033546  255  10  0  00  033550 

033547  334  00  0  00  000000 

033550  254  04  0  00  033551 

033551  324  00  0  00  033552 

033552  255  01  0  00  033554 

033553  334  00  0  00  000000 

033554  254  04  0  00  033555 

033555  324  00  0  00  033556 


C13300:  JFCL  17, .+1 

MOVE I  1 
SOS 

JCRYO  .+2 
STOP* 

HALT  .'►I 

JUMPA  .^^ 

JCRY1  .^2 
STOP* 

HALT  .-H 

JUMPA  .*^ 

JOV  .*2 
SKI  PA 
STOP* 

HALT  .-H 

JUMPA  .-^1 

JFOV  .*2 
SKIPA 
STOP* 

HALT  .+1 

JUMPA  .-J-l 


.•Reset  arithmetic  flags 
.•Preload  e  with  1 
;*Sos  should  set  cryO/1 
;Pass  if  cryO  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  cryl  is  set 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  arov  is  reset 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;P3Ss  if  fov  IS  reset 


;Test  failed  if  program  halts  here 
;To  loop  change  tnis  instruction* 


3118 
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SEQ  0131 


5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 


;This  test  verifies  that  aos  sets  crvO  and  cryl  flag  if  c(e)  is  -1//-1 
;First  the  flags  are  reset;  then  aos  is  executed,  the  flags  are  checked. 
;If  cryO  and  cryl  are  set  and  arov  and  fov  are  reset,  this  test  passes. 


033556  255  17  0  00  033557 

033557  474  00  0  00  000000 

033560  350  00  0  00  000000 

033561  255  04  0  00  033563 

033562  254  04  0  00  033563 

033563  324  00  0  00  033564 

033564  255  02  0  00  033566 

033565  254  04  0  00  033566 

033566  324  00  0  00  033567 

033567  255  10  0  00  033571 

033570  334  00  0  00  000000 

033571  254  04  0  00  033572 

033572  324  00  0  00  033573 

033573  255  01  0  00  033575 

033574  334  00  0  00  000000 

033575  254  04  0  00  033576 
033*^76  324  00  0  00  033577 


C13400:  JFCL    17, .+1 
SETO 
AOS 

JCRYO  .+2 
STOP'' 

HALT  .-!l 
JUMPA  .+1 
JCRYI  .+2 
STOP'^ 

HALT    .+1 
JUMPA   .+1 
JOV     .+2 
SKI  PA 
STOP* 

HALT    .-»-l 
JUMPA   .-^1 
JFOV    .+2 
SKIPA 
STOP* 

HALT  .+1 
JUMPA   .+1 


;Reset  arithmetic  flags 
.'Preload  e  with  1 
;*Aos  should  set  cryO  and 
;Pass  if  cryO  is  set 


cryl 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  cryl  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  arov  is  reset 


;Test  failed  if  program  halts  here 
;To  loop  chance  this  instruction* 
;Pass  if  fov  Ts  reset 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


J 
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SEQ  0132 


5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 


033577 

033577 
033600 
033601 
033602 
033603 
033604 

033605 
033606 


033607 

033607 
033610 
033611 
033612 
033613 

033614 
033615 


205  01  0  00  040000 
255  17  0  00  033601 

254  02  0  01  033602 

255  01  0  00  033603 
255  01  0  00  033605 
334  00  0  00  000000 

254  04  0  00  033606 
324  00  0  00  033607 


205  01  0  00  000100 

25S  17  0  00  033611 

23-  02  0  01  033612 

265  00  0  00  033613 

607  00  0  00  000100 

254  04  0  00  033615 

324  00  0  00  033616 


SUBTTL  TEST  OF  INTERACTION  OF  JFCL,  JRST,  AND  JSP  WITH  ARITHMETIC  FLAGS 


********** 


;This  test  verifies  that  jfcl  1,  will  always  clear  fov  flag. 

.-First,  fov  IS  set  via  jrst  2,  ;then  jfcl  i,.+1  is  executed  to  clear  fov, 

;If  fov  was  cleared,  this  test  passes. 


C13600:  SFLAG   FOV 


MOVSI 

JFCL 

JRST 

JFCL 

JFCL 

SKI  PA 

STOP* 

HALT 

JUMPA 


1,F0V 
1^.f1 
2, .+1(1) 
U.-^l 
1,.'^2 


.-^1 


;Set  fov  flag 


;Reset  all  flags 

;Set  FOV  flag 

;*Jfcl  should  reset  fov 

;Pass  if  fov  is  reset 

;Skip  halt  if  jfcl  1,.+1  passed 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


*********** 


;This  test  verifies  that  jrst  2,  can  set  fxu  and  jsp  can  save  fxu  in  the  ac. 
.-First,  fxu  is  set  via  jrst  2,  ;then.  jsp  is  executed,  the  ac  is  checked  for 
;Fxu.  if  fxu  is  set,  this  test  passes;  otherwise,  either  jrst  2,  or  jsp  failed, 


C13700:  SFLAG   FXU 


;*Set  fxu  flag 


MOVSI 

JFCL 

JRST 

JSP 

TLNN 

STOP* 

HALT 

JUMPA 


1.FXU 

l^.-H 

2,."H(1) 

.+1 

FXU 

.♦f 


;Reset  all  flags 

.-Set  FXU  flag 

; ♦Store  fxu  flag  in  ac 

.-Pass  if  fxu  is  set  in  the  ac 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


,^^J 
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5AA7 

5A48 

5AA9 

5450 

5A51 

5A52 

5A53 

5A5A 

5A55 

5A56 

5A57 

5A58 

5A59 

5A60 

5A61 

5A62 

5A63 

5A64 

5A65 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 


S50  0133 


033616 

033616 
033617 
033620 


033621 
033622 
033623 
033624 
033625 

033626 
0336ci7 


033630 

033630 
033631 
0^3632 
033633 
033634 

033635 
033636 


205  01  0  00  000100 
255  17  0  00  033620 
254  02  0  01  033621 


205  01  0  00  000000 
255  17  0  00  033623 
254  02  0  01  03^^24 
265  00  0  00  033625 
603  00  0  00  000100 

254  04  0  00  033627 
324  00  0  00  033630 


20S  01  0  00  000040 

2o?  17  0  00  033632 

254  02  0  01  033633 

265  00  0  00  033634 

607  00  0  00  000040 

254  C'^  0  00  033636 

324  00  0  00  033637 


;This  test  verifies  that  jrst  2,  can  reset  fxu  and  jsp  can  save  fxu  in  the  ac. 
;First,  fxu  is  set;  then,  fxu  is  reset  via  jrst  2,.  next,  jsp  is  executed;  and 
;The  ac  is  checked  for  fxu  reset,  if  fxu  is  reset  in  the  ac,  this  test  passes; 
;Otherwise,  jrst  2,  failed  to  clear  fxu  or  jsp  stored  fxu  incorectly. 


C14000:  SFLAG   FXU 


MOVSI 
JFCL 
JRST 
SFLAG 

MOVSI 

JFCL 

JRST 

JSP 

TLNE 

STOP* 

HALT 

JUMPA 


I.FXU 

l^.-^l 

2,.-^l(l) 


1, 

l^.-^l 

2,.'^1(1) 

FXU 

.-H 
.+1 


*;Set  fxu  flag 


;Reset  all  flags 
;Set  FXU  flag 
*;*Reset  fxu  flag 


;Reset  all  flags 

;i;et  flag 

; ♦Store, fxu  flag 


in  the  ac 


;Pass  if  fxu  is  reset  in  the  ac 

;Test  failed  if  program  halts  here 
;To  loop  cha'^oe  this  instruction* 


**»•*•♦*•• 


;This  test  verifies  that  jrst  2,  can  set  dck  and  jsp  can  save  dck  in  the  ac. 
;First,  dck  is  set  via  jrst  2,  ;then  jsp  is  executed,  ♦"he  ac  is  checked 
;For  dck.  if  dck  is  set,  this  test  passes,  otherwise  jrst  2,  or  jsp  fail  d. 


C14100:  SF.AG   DCK 


MOVSI 

JFCL 

JRST 

JSP 

TLNN 

STOP* 

HALT 

JUMPA 


1,DCK 
1?,.+1 
2, .+1(1) 
.+1 
DCK 

.♦1 

.+1 


*Set  dck  flag 


;Reset  all  flags 
;Set  DCK  flaq 
;»Store  fxu  flag  in 
;Pass  if  fxu  is  set 


ac 
in 


the  ac 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


« 


21 
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SEQ  01 34 


5A86 
5A87 
5488 
5A89 
5A90 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 


;This  test  y/en*fies  that  jrst  2,  can  reset  dck  and  jsp  can  save  dck  in  the  ac. 
.-First,  fxu  is  set;  then,  dck  is  reset  via  jrst  2,.  next,  jsp  is  expected;  and 
;The  ac  is  checked  for  dck  reset,  if  dck  is  reset  in  the  ac,  this  test  passes; 
;Otherwise,  jrst  2,  failed  to  clear  dck  or  jsp  stored  dck  incorrectly. 


033637 

033637 
033640 
033641 


033642 
033643 
033644 
033645 
033646 

033647 
033650 


C14200:  SFLAG   DCK 


205  01  0  00  000040 
255  17  0  00  033641 
254  02  0  01  033642 


205  01  0  00  000000 
255  17  0  00  033644 
254  02  0  01  033645 
265  00  0  00  033646 
603  00  0  00  000040 

254  04  0  00  033650 
324  00  0  00  033651 


MOVSI 
JFCL 
JRST 
SFLAG 

MOVSI 

JFCL 

JRST 

JSP 

TLNE 

STOP'' 

HALT 

JUMP  A 


1-DCK 
l?,.tl 
2, .♦1(1) 


1?,.-H 
2, .♦1(1) 
.♦1 
DCK 

.♦1 
.♦1 


*;Set  dck  flag 


;Reset  all  flags 
•Set  DCK  flag 
*;*Reset  dck  flag 


;Reset  all  flags 

;Set  flag 

;*Store  dck  flag  in  the  ac 

;Pass  if  dck  is  reset  in  the 


ac 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 
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5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 

5546 

5547 


SEQ  0135 


033651  474  00  0  00  000000 

033652  321  00  0  00  033654 

033653  254  04  0  00  033654 

033654  324  00  0  00  033655 


033655  400  00  0  00  000000 

033656  321  00  0  00  033660 

033657  334  00  0  00  000000 

033660  254  04  0  00  033661 

03366'  324  00  0  00  033662 


033662  400  00  0  00  000000 

033663  322  00  0  00  033665 

033664  254  04  0  00  033665 

033665  324  00  0  00  033666 


SU8TTL  TEST  OF  JUMPX  INSTRUCTIONS 


********** 


;This  test  veri.fes  that  jumpl  is  data  dependent,  it  wilt  jump  it  and  only 
;If  c(ac)  is  negative,  in  this  test,  the  ac  contains  -1,,-i.  hence,  jumpl 
.•Should  jump,  if  jumpl  jumps,  this  test  passes. 

.-Preload  ac  with  -1,,-1 

;*Jumpl  should  jump  because  c(ac)  is  negativ/e 


C14500:  SETO 

JUMPL 

.^2 

STOP'^ 

HALT 

.♦1 

JUMPA 

."^1 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  jumpl  is  data  dependent,  it  will  jump  if  and  only 
;If  c(ac)  is  negative,  in  tnis  test,  the  ac  contains  0.  hence,  jumpl 
;Should  not  jump,  if  jumpl  does  not  jump,  this  test  passes. 

.•Preload  ac  with  0 
;*Jumpl  should  not  jump 
;Pass  if  jumpl  does  not  jump 


CI 4600: 

SETZ 

JUMPL 

.+2 

SKI  PA 

STOP'^ 

HALT 

.•^1 

JUMPA 

.-^1 

.-Test  failed  if  program  halts  here 
;To  loop  change  tnis  instruction* 


********** 


;This  test  verifies  that  jumpe  is  data  dependent,  it  will  jump  if  and 
.-Only  if  c(ac)=0.  in  th'-'s  test,  the  ac  contains  0.  hence,  jumpe  should 
;Jump.  if  jumpe  jumps,  this  test  passes. 

.•Preload  ac  with  0 
;*Jumpe  should  jump 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


C14700:  SETZ 

JUMPE 

,^2 

STOP* 

HALT 

."^1 

JUMPA 

.*1 

********** 


?3 
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SEQ  0136 


5548 

5549 

5550 

5551 

5552 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 


033666  201  00  0  00  000001 

033667  326  00  0  00  033671 

033670  254  04  0  00  033671 

033671  324  00  0  00  033672 


033672  201  00  0  00  000002 

033673  322  00  0  00  033675 

033674  334  00  0  00  000000 

033675  254  04  0  00  033676 

033676  324  00  0  00  033677 


033677  400  00  0  00  000000 

033700  5d-  00  0  00  033702 

033701  334  00  0  00  000000 

033702  254  04  0  00  033703 

033703  324  00  0  00  033704 


;This  test  verifies  that  jumpn  is  data  dependent,  it  will  fump 
;Only  if  c(ac)  is  non-zero,  in  this  test,  the  ac  contains  '. 
jJuflipn  should  jump,  if  jumpn  jumps,  this  test  passes. 


if  and 
hence. 


CI 5000:  MOVE I  1 

JUMPN  .+2 
STOP^ 

HALT  .+1 

JUMPA  .+1 


.•Preload  ac  with  1 
;*Jumpn  should  jump 


;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction'' 


;•♦•*♦**••♦ 


;This  test  verifies  that  jumpe  is  data  dependent,  it  will  jump  if  and 
;Only  if  c(ac)=0.  in  this  test,  the  ac  contains  2.  hence,  jumpl  should 
;Not  jump,  if  jumpe  does  not  jump,  this  test  passes. 

.•Preload  ac  with  2 
;*Jumpe  should  not  jump 
;Pass  if  jumpe  did  not  jump 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


C15100:  MOVEI 

2 

JUMPE 

.+2 

SKIPA 

STOP* 

HALT 

.•H 

JUMPA 

.+1 

*♦••****** 


;This  test  verifies  that  jumpn  is  data  dependent,  it  will  iump  if  and 
;Only  if  c(ac)  is  non-zero,  in  this  test,  the  ac  contains  0.  hence, 
: Jumpn  should  not  jump,  if  jumpn  does  not  jump,  this  test  passes. 

.•Preload  ac  with  0 

;* Jumpn  should  not  jump 

;Pass  if  jumpn  did  not  jump 

.'Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


CI  5200: 

SETZ 

JUMPN 

.+2 

SKI  PA 

STOP* 

HALT 

.+1 

JUMPA 

.•H 

;♦♦•••»♦*** 

J 


?A 
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SEQ  0137 


5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 


033704  201  00  0  00  000001 

033705  327  00  0  00  033707 

033706  254  04  0  00  033707 

033707  324  00  0  00  033710 


033710  205  00  0  00  111111 

033711  327  00  0  00  033713 

033712  334  00  0  00  000000 

033713  254  04  0  00  033714 

033714  324  00  0  00  033715 


;This  test  verifies  that  jumpg  is  data  dependent,  it  will  jump  if  and 
;Only  if  c(ac)  is  greater  than  0.  in  this  test,  the  ac  contains  1.  hence, 
;Jufnpg  should  jump,  if  jumpg  jumps,  this  test  passes. 


C 15300:  MOVE I  1 

JUMPG  .•»-2 
STOP'^ 

HALT  .+1 

JUMPA  M 


.-Preload  ac  with  1 
;*Jumpg  should  jump 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  jumpg  is  data  dependent,  it  will  jump  if  and  only 
;If  c(ac)  is  greater  than  0.  in  this  test,  the  ac  contains  -1,,0.  hence, 
; Jumpg  should  not  jump,  if  jumpg  does  not  jump,  this  test  passes. 

.-Preload  ac  with  -1<,0 
.-*Jump9  should  not  jump 
.-Pass  if  jumpg  did  not  jump 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


CI 5400:  MOVSI 

-1 

JUMPG 

.+2 

SKIPA 

STOP* 

HALT 

.+1 

JUMPA 

.+1 

;»*♦»••♦**• 

.„„.J 


J 


..... 
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SEQ  0138 


5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 


033715  400  00  0  00  000000 

033716  340  00  0  00  033720 

033717  302  00  0  00  000001 

033720  254  04  0  00  033721 

033721  324  00  0  00  033722 


033722  474  00  0  00  000000 

033723  340  00  0  00  033725 

033724  302  00  0  00  000000 

033725  254  04  0  00  033726 

033726  324  00  0  00  033727 


033727  400  00  0  00  000000 

033730  360  00  0  00  033732 

033731  312  00  0  00  034443 

033732  254  04  0  00  033733 

033733  324  00  0  00  033734 


SUBTTL  TEST  OF  AOJ  AND  SOJ  INSTRUCTIONS 


;***•*♦**•* 


;This  test  verifies  that  aoj  adds  1  to  the  ac  and  does  not  jump. 
;First,  the  ac  is  preloaded  with  0;  then,  aoj  is  executed,  next,  the 
;Ac  is  checked  for  1.  if  c(ac)  is  not  1  or  aoj  skipped,  this  test  fails. 

.-Preload  ac  with  0 

;*Aoj  should  add  1  to  the  ac  and  not  jump 

;Pass  if  c(ac)=l  and  aoj  did  not  jump 


C15500:  SETZ 
AOJ 
CAIE 
STOP* 
HALT 
JUMPA 

1 

.+1 

;•***•••»♦♦ 

.-Test  failed  if  program  halts  h 
;To  loop  change  this  instruct io 


ere 
on* 


;This  test  verifies  that  aoj  adds  1  to  the  ac  and  does  not  jump. 

.-First,  the  ac  is  preloaded  with  -1**-1;  then,  aoi  is  executed,  next,  the 

.-Ac  is  checked  for  0.  if  c(ac)  is  not  0  or  aoj  skipped,  this  test  fails. 

.-Preload  ac  with  0 

;*Aoj  should  add  1  to  the  ac  and  not  jump 

.-Pass  if  c(ac)=1  and  aoj  did  not  jump 


C15600:  SETO 

AOJ 

.^2 

CAIE 

0 

STOP* 

HALT 

.-H 

JUMPA 

.♦1 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


********** 


C15700:  SETZ 

SOJ 

.+2 

CAWE 

c-n 

STOP* 

HALT 

.♦t 

JUMPA 

.*1 

.-This  test  verifies  that  soj  subtracts  1  from  the  ac  and  does  not  jump. 

.-First,  the  ac  is  preloaded  with  0;  then,  soj  is  executed,  next,  the  ac 

.-Is  checked  for  -1.,-1.  if  c(ac)  is  not  -1,,-1  or  soj  skipped,  this  test  fails. 

.•Preload  ac  with  0 

;*Soj  should  subtract  1  from  the  ac  and  not  jump 

.-Pass  if  c(ac)=-1,,-1  and  soj  did  not  jump 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦♦♦♦♦♦♦♦*» 


L 


^  J 


6 
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SEQ  0139 


J 


5651 
5652 
5653 
565A 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
566A 
5665 
5666 
5667 
56d8 
5669 
5670 
5671 
5672 
5673 
5674 
5675 


033734  474  00  0  00  000000 

033735  360  00  0  00  033737 

033736  312  00  0  00  034444 

033737  254  04  0  00  033740 
033740  324  00  0  00  033741 


033741  201  00  0  00  000001 

033742  360  00  0  00  033744 

033743  302  00  0  00  000000 

033744  254  04  0  00  033745 

033745  324  00  0  00  033746 


;This  test  veri 
.•First,  the  ac 
;Is  checked  for 


CI 6000:  SETO 

SOJ 

.*2 

CAME 

C-2] 

STOP* 

HALT 

.*1 

JUMPA 

.+1 

« 

;This  test  ven* 
.-First,  the  ac 
;Ac  IS  checked 

C16100:  MOVEI 
SOJ 
CAIE 
STOP* 
HALT 
JUMPA 

•♦♦♦♦*•♦*♦• 


ties  that  soj  subtracts  1  from  the  ac  and  does  not  jump, 
is  preloaded  with  -1,,~1;  then-  soj  is  executed,  next,  the  ac 
-1,,-2.  if  c(ac)  is  not  -1,,-2  or  soj  skipped,  this  test  fails. 

;Preload  ac  with  -1,,-1 

;*Soj  should  subtract  1  from  the  ac  and  not  jump 

.-Pass  if  c(ac)=-1,,-2  and  soj  did  not  jump 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


fies  that  soj  subtracts  1  from  the  ac  and  does  not  jump, 
is  preloaded  with  0,,1;  then,  soj  is  executed,  next,  the 
for  0.  if  c(ac)  is  not  0  or  soj  skipped,  this  test  fails. 


1 

0 

.+1 
.*1 


.•Preload  ac  with  1 

;*Soj  should  subtract  1  from  the  ac  and  not  jump 

;Pass  if  c(ac)=0  and  soj  did  not  jump 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


r 
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5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

570A 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 


000017 
033746  400  17  0  00  000000 


033747  360  17  0  00  033747 

033750  340  17  0  00  033750 

033751  360  17  0  00  033751 

033752  340  17  0  00  033752 

033753  360  17  0  00  033753 

033754  340  17  0  00  033754 

033755  360  17  0  00  033755 

033756  340  17  0  00  033756 

033757  360  17  0  00  033757 

033760  340  17  0  00  033760 

033761  360  17  0  00  033761 

033762  340  17  0  00  033762 

033763  360  17  0  00  033763 

033764  3h J  17  0  00  033764 

033765  360  17  0  00  033765 

033766  340  17  0  00  033766 

033767  360  17  0  00  033767 

033770  340  17  0  00  033770 

033771  360  17  0  00  033771 

033772  340  17  0  00  033772 

033773  332  00  0  00  000017 

033774  254  04  0  00  033775 

033775  324  00  0  00  033776 


;This  test  verifies  that  soj  ac,  followed  by  aoj  ac,  has  no  net  effect  on  c(ac). 
;In  this  case,  the  ac  is  preloaded  with  0;  then,  soj  ac,  followed  by  aoj. 
;Ac,  is  repeated  7  times,  the  ac  is  then  checked  for  its  original  contents,  0. 
;If  c(ac)=D,  this  test  passes:  otherwise  aoj  or  soj  failed. 


C16200:  AC=17 

SETZ  AC- 
REPEAT  *D10,< 
SOJ  AC 
AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SOJ  AC 

AOJ  AC 

SKIPE  AC 
STOP* 

HALT  .♦I 

JUMPA  .*1 


.•Preload  ac  with  0 

;*Soi  should  subtract  1  from  the  ac 

:*Aoj  should  add  1  to  the  ac> 

;*Soj  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

.-♦"Soj  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

:*Aoj  should  add  1  to  the  ac 

;*Soi  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

;*Soj  should  subtract  1  from  the  ac 

;*Aoj  should  add  1  to  the  ac 

.-Pass  if  c(ac)  is  unchanged,  i.e.  c(ac)=0 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


SEQ   0140 


1 


lattmmtiiimiitlimmfllltt^^ 


l_^ 


r 
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SEQ  0U1 


5722 
5723 
572A 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
i,/37 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 


033776  255  17  0  00  033777 

033777  201  00  0  00  000001 

034000  360  CO  0  00  000000 

034001  255  04  0  00  034003 

G:*)4'^0.  254  04  0  00  034003 

0Vr'.3  324  00  0  00  034004 

i.}^vA  255  02  0  00  034006 

034005  254  04  0  00  034006 

034006  324  00  0  00  034007 

034007  255  10  0  00  034011 

034010  334  00  0  00  000000 

034011  254  04  0  00  034012 

034012  324  00  0  00  034013 

034013  255  01  0  00  034015 

034014  334  00  0  00  000000 

034015  254  04  0  00  034016 
0340U  324  00  0  00  034017 


;This  test  verifies  that  soj  sets  cryO/1  flags  if  c(e)  is  a  non-zero  number 
;Other  than  400000,, 0.   in  this  case,  c(e)=1.  first  the  flags  are  reset. 
.-Then  soj  is  executed,  the  flags  are  checked,  if  cryO  and  cryT  are  set  and 
;Arov  and  fov  are  reset,  this  test  passes. 


C16201: 


JFCL 

17, 

MOVE  I 

1 

SOJ 

JCRYO 

.♦2 

STOP* 

HALT 

."H 

JUMP  A 

.♦1 

JCRYl 

.^2 

STOP* 

HALT 

.♦1 

JUMP  A 

.♦1 

JOV 

.♦2 

SKI  PA 

STOP* 

HALT 

.*1 

JUMPA 

.•^1 

JFOV 

.♦2 

SKI  PA 

STOP* 

HALT 

.^^ 

JUMPA 

.^^ 

.-Reset  arithmetic  flags 
;Preload  e  with  1 
;»Soi  should  set  cryO/1 
;Pass  if  cryO  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  cryl  is  set 

;Tcst  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  it  arov  is  reset 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  fov/  is  reset 


.-Test  failed  if  program  halts  here 
;To  loop  change  tnis  instruction* 


********** 
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SEQ  0^^2 


5750 
5751 
5752 
57S3 
57b4 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 


034017  255  17  0  00  034020 

034020  474  00  0  00  000000 

034021  340  00  0  00  000000 

034022  255  04  0  00  034024 

034023  254  04  0  00  034024 

034024  324  00  0  00  034025 

034025  255  02  0  00  034027 

034026  254  04  0  00  034027 

034027  324  00  0  00  034030 

034030  255  10  0  00  034032 

034031  334  00  0  00  000000 

034032  254  04  0  00  034033 

034033  324  00  0  00  034034 

034034  255  01  0  00  034036 

034035  334  00  0  00  000000 

034036  254  04  0  00  034037 

034037  324  00  0  00  034040 


;This  test  y/en*fies  that  aoj  sets  cryO  and  cry]   tlao  if  c(e)  is  -1,,-1. 
;First  the  flags  are  reset;  then  aoj  's   executed,  the  flags  are  checked, 
;If  cryO  and  cryl  are  set  and  arov  and  fov  are  reset,  this  test  passes. 


C16202:  JFCL    17, .+1 
SETO 
AOJ 

JC^YO  .^2 
STOP* 

HALT  .♦I 
JUMPA  .♦I 
JCRYl  .*2 
STOP* 

HALT    .♦I 
JUMPA   .♦I 
JOV     .+2 
SKIPA 
STOP* 

HALT    .♦! 
JUMPA   .♦I 
JFOV    .^2 
SKIPA 
STOP* 

HALT  .♦I 
JUMPA   .+1 


; Reset  arithmetic  flags 

; Pre  load  e  with  1 

;*Aoi  should  set  cryO  and  cryl 

;Pass  if  cryO  is  set 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  cryl  is  set 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  arov  is  reset 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
;Pass  if  fov  is  reset 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


'  lRW!!M><M«HpnMMI««MM 
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SEQ  0143 


5777 
5778 
5779 
5780 
5781 
5782 
5783 
578A 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
579A 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5803 
580A 
5805 


0340A0 
03A041 
0340A2 

034043 
034044 


034045 
034046 
034047 

03405C 
034051 


477  00  0  00  000001 
272  00  0  00  000001 
312  00  0  00  034443 

254  04  0  00  034044 
324  00  0  00  034045 


201  00  0  00  mill 
572  00  0  00  000001 
302  00  0  00  mill 

254  04  0  00  034051 
324  00  0  00  034052 


SUBTTL  TEST  OF  MEMORY,  BOTH  AND  SELF  MODE  INSTRUCTIONS 


***t****** 


.'This  test  verifies  that  addm  does  not  modify  c(ac) 

;Both  ac  and  e  are  preloaded  with  -1,,-1.  then  addm  is  executed. 

.-This  test  passes  if  c(ac)  are  unchanged. 


CI 6400: 


SETOB 

ADDM 

CAME 

STOP* 

HALT 

JUMP  A 


1 
1 
C-13 


;Preload  ac-  e  with  -1,,-1 
;Mddm  should  not  affect  cCac) 
;Pass  if  c(ac)  is  unmodified  by  addm 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test  verifies  that  hrrem  does  not  modify  c(ac) 
;The  ac  is  preloaded  with  0,,~1.  then  hrrm  is  executed, 
.'This  test  passes  if  c(ac)  are  unchanged. 


C16500:  MOVEI  -1 

HRREM  1 

CAIE  -1 
STOP* 

HALT  .+1 

JUMPA  .+1 

•  if********* 


.•Preload  ac  with  0,,- 

;*Hrrm  should  not  affect  c(ac) 

;Pass  if  c(ac)  is  unmodified  by  hrrm 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


h  ■Wi|l-H»'IWt|!il»i.H»>*|iJ1  WBitW 
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201  00  0  00  711117 
206  00  0  00  000001 
302  00  0  00  mill 

25A  04  0  00  03A056 
324  00  0  00  034057 
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5806 
5807 
5808 
5809 

5810  034052 

5811  U34053 

5812  034054 
5813 

5814  034055 

5815  034056 
5816 

5817 

5818 

5819 

5820 

5821 

^822 

t823  034057 

^824  034060 

'^825  034061 

5826 

5827  034062 

5828  034063 
5829 

5830 


DIAGNOSTIC  (4)  0.2 
TEST  OF  MEMORY, 
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SEQ  0144 


;This  test  verifies  that  movsm  does  not  modify  c(ac). 
;The  ac  is  preloaded  with  0,,-1.  then  movsm  is  executed. 
;This  test  passes  if  c(ac)  are  unchanged. 


CI  6600 


St  passes  i 

MOVE  I 

-1 

MOVSM 

1 

CAIE 

-1 

STOP* 

HALT 

.+1 

JUMP  A 

.  +  1 

.•Preload  ac  with  0,,-1 

;*Movsm  should  not  affect  c(ac) 

;Pas3  if  c(ac)  is  unmodified  by  movsm 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


»•*•*♦***• 


;This  test  verifies  that  xorm  does  not 
;Both  ac  and  e  are  preloaded  with  -1,,-1. 
;This  test  passes  if  c(ac)  are  unchanged. 


modify 
then 


c(ac) . 
xorm 


is  executed. 


477  00  0  00  000001 
432  00  0  00  000001 
312  00  0  00  034443 

254  04  0  00  034063 
324  00  0  00  034064 


C16700: 


SETOB 

1 

XORM 

1 

CAME 

c-n 

STOP* 

HALT 

M 

JUMPA 

M 

;Preload  ac,  e  with  -1,,-1 
;*Xorm  should  not  affect  c(ac) 
;Pass  if  c(ac)  is  unmoaified  by  xorm 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦•♦••♦••♦♦ 
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SEQ  0145 


5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

58A0 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 


.-This  test  \/en*fies  that  addb  adds  c(ac)  to  c(e)  and  places  the  result 
;In  both  ac  and  e.  in  this  test,  both  ac  and  e  are  preloaded  with  -1,,-1, 
;Then,  addb  is  executed.  c(ac)  is  then  compared  to  c(e)  and  c(ac)  is 
; Compared  to  -2.  if  both  of  these  comparisons  succeed,  this  test  passes. 
.-Otherwise,  addb  failed. 


034064  477  00  0  00  000001 

034065  273  00  0  00  000001 

034066  312  00  0  00  000001 

034067  254  04  0  00  034070 

034070  324  00  0  00  034071 

034071  312  00  0  00  034444 

034072  254  04  0  00  034073 

034073  324  00  0  00  034074 


CI 7000:  SET08 
ADDB 

CAME 

STOP* 

HALT 

JUMPA 

CAME 

STOP* 

HALT 

JUMPA 


1 
1 

1 

.♦1 
C-2J 

.♦1 
.*1 


.-Preload  ac,  e  with  -1,,-1 
;*Addb  should  add  c(ac)  to 
;Into  both  ac  and  e 
;Pass  if  c(ac)=c(e) 


c(e)  and  place  result 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
.-Pass  if  c(acT=-2 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


***t 


*♦♦* 


.-This  test  verifies  that  addm  adds  c(ac)  to  c(e)  and  places  the  result  in  e 
;In  this  case,  ac,  e  are  both  preloaded  with  -1;  then,  addm  is  executed,  e  is 
.-Then  checked  for  -2.  if  c(e)--2,  this  test  passes;  otherwise,  addm  failed. 


034074  477  00  0  00  000001 

034075  111   00  0  00  000001 

034076  312  01  0  00  034444 

034077  254  04  0  00  034100 
03^100  324  00  0  00  034101 


C17100: 


SETOe 

ADDM 

CAME 

STOP* 

HALT 

JUMPA 


1 
1 
1,C-2] 

.*1 
.*1 


.-Preload 
.-♦Addm  s 
.-Pass  if 


ac,  e  with  -1,,-1 
hould  add  c(ac)  to 
c(e)=-2 


c(e) 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


I. 


J 


— ^. 


r 
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5863 
586A 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
587A 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
588A 
5885 
5886 
5887 
5888 
5889 


SEQ  0K6 


034101  402  00  0  00  000001 

0341 02  523  00  0  00  000001 

034103  302  01  0  00  777777 

034104  254  04  0  00  034105 

034105  324  00  0  00  034106 


034106  205  01  0  00  777777 

034107  207  GO  0  00  000001 

034110  302  01  0  00  777777 

034111  254  04  0  00  034112 

034112  324  00  0  00  034113 


;This  test  verifies  that  hllos  places  ones  on  the  right  hat^  of  e 
;But  does  not  affect  the  left  half  of  e.  in  this  case, 
;E  is  preloaded  with  0;  the,  hllos  is  executed,  the  result 
;In  e  should  be  0,,-1.  if  c(e)=0,,-1,  this  test  passes. 

;Preload  e  with  0 

;*Hllos  should  place  0,,-1  into  e 

;Pass  if  c(e)=0,,-1 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


CI  7200: 

SETZM 

1 

HLLOS 

1 

CAIE 

1,- 

STOP* 

HALT 

.♦1 

JUMP  A 

.*1 

t«*****t** 


;This  test  verifies  that  movss  swaps  boths  halves  of  e  and 
;Places  the  result  in  e.  in  this  case,  e  is  preloaded  with 
;-1,,0;  Then,  movss  is  executed,  the  result  in  e  should  be  0,,-1. 
;If  c(e)=0,,-1,  this  test  passes. 


C17300:  MOVSI  1,"1 

MOVSS  1 

CAIE  1,-1 
STOP* 

HALT  ."^1 

JUMPA  .♦I 

•  ********** 


.-Preload  e  with  -1,,0 

;*Movss  should  place  0,,-1  into  e 

.-Pass  if  c(e)=0,,-1 


;Test  failed 
;To  loop  change 


if  program  halts  here 
ge  this  instruction* 


r 
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SEQ  0^^7 


5890 
5891 
5892 
5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 


;This  test  verifies  that  aos  adds  one  to  memory  but  does  not  skip,  first, 

next,  e  is  checked  for  0. 


;E  is  preloaded  with  -1,-1:  then,  aos  is  executed. 
;If  c(e)  is  not  0  or  aos  skipped,  this  test  fails. 


034113  477  00  0  00  000001 

034114  350  00  0  00  000001 

034115  302  01  0  00  000000 


CI  7400: 


034116  254  04 

034117  324  00 


0  00  034117 
0  00  034120 


SETOe 

1 

AOS 

1 

CAIE 

1,0 

STOP* 

HALT 

.*1 

JUMP  A 

.*1 

;Preload  e  with  -1,,-1 

;*Aos  should  add  to  c(e)  and  not 

.-Pass  if  c(e)=0,,0  and  aos  did  not 


;kii 


skii 
Skip 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


*•*«****** 


034120  400  00  0  00  000000 

034121  474  01  0  00  000000 

034122  506  00  0  00  000001 

034123  302  01  0  00  777777 

034124  254  04  0  00  034125 

034125  324  00  0  00  034126 


;This  test  verifies  that  hrlm  places  c(ac-riQht)  into  e-left  and  does  not 
.-Modify  e-right.  in  this  case,  ac  is  preloaded  with  0  and  e  is  preloaded 
;With  -1,,-1.  then,  hrlm  is  executed,  e  is  then  checked  for  0,,-1.  if 
;C(e)=0,,-1,  this  test  passes. 

; Preload  ac  with  0 

.•Preload  e  with  -1,,-1 

;*Hrlm  should  place  0,,-1  into  e 

.-Pass  if  c(e)=D,,-1 


CI  7500: 

SETZ 

SETO 

1, 

HRLM 

1 

ca:e 

1,- 

STOP* 

HALT 

.♦1 

JUMP  A 

.-^1 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


t**t***t** 


,.,™.i 


.J 


35 
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5917 

5918 

5919 

5920 

5921 

5922 

5923 

592A 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 


034126  474  00  0  00  000000 

034127  400  01  0  00  000000 

034130  543  00  0  00  000001 

034131  332  00  0  00  000001 

034132  254  04  0  00  034133 

034133  324  00  0  00  034134 


.-This  test  verifies  that  hrrs  does  not  modify  e. 
;With  0  and  ac  is  preloaded  with  -1,,-1.  hrrs  is 
;E  is  checked,  if  c(e)  does  not  change,  this  test 

rl7Ann-  QPTO  -PralnaH  a 


SEQ  0148 


e  is  preloaded 
executed;  then 
passes. 


CI  7600: 

SETO 

SETZ 

1, 

HRRS 

1 

SKIPE 

1 

STOP'^ 

HALT 

.-^1 

JUMPA 

.-^1 

;Preload  ac  with  -1,,-1 

;Preload  e  with  0,,0 

;*Hrrs  should  place  0,,0  into  e 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


4**«t***** 


;This  test  verifies  that  hrrzm  places  c(ac-right)  into  e-right  and  plac 
.-Zeros  into  e-left.  in  this  case,  ac=e=acl  and  c(ac)=c(e)=-1,,0.  nrrz 
;Is  executed  and  ad  is  checked  for  0.  if  ac1=0,  this  test  passes. 


es 

rzm 


034134  474  00  0  00  000000 

034135  205  01  0  00  777777 

034136  552  01  0  00  000001 

034137  332  00  0  00  000001 

034140  254  04  0  00  034141 

034141  324  00  0  00  034142 


CI  7700: 

SETO 

MOVSI 

1,-1 

HRRZM 

1,1 

SKIPE 

1 

STOP-^ 

HALT 

.-^1 

JUMP.; 

.-n 

.•Preload  acO  with  -1,,-1 
.•Preload  ad  with  -1,.0 
;  ♦Hrrzm  should  place  0  into  ad 
;Pass  if  c(ac1)=0 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.,„ ( 


»iT«fcfs-ii«.»w-»*'jmf 


16 
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SEO  0U9 


59A4 
594  5 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 


;This  test  verifies  that  jfcl  17^,■^^   never  jumps  and  does  not  modify  c(acO). 
;First,  acO  is  preloaded;  then,  jfcl  is  executed,  if  acO  is  modified  or 
;Jfcl  skips,  this  test  fails. 


034142  400  00  0  00  000000 

034143  255  17  0  00  034144 

034144  332  00  0  00  000000 

034145  254  04  0  00  034146 

034146  324  00  0  00  034147 


C20000:  SETZ 

JFCL    17, .-fl 

SKIPE 

STOP* 

HALT    .-^1 

JUMPA   .•►I 


.'Clear  acO 

;*Jfcl  should  not  jump  or  modify  c(acO). 

;Pass  if  c(acO)=0  and  jfcl  did  not  jump 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;♦»♦♦♦♦»*•♦ 


;This  test  verifies  that  xorm  performs  the  logical  exclusive  or  function 
.'Between  c(ac}  and  c(e)  and  places  the  result  into  e.  in  this  case, 
;Ac  and  e  are  preloaded  with  -1,,-1;  then,  xorm  is  executed,  if  the 
;Result  in  e  is  0,  the  test  passes. 


034147  477  00  0  00  000001 

034150  432  00  0  00  000001 

034151  302  01  0  00  000000 

034152  254  04  0  00  034153 

034153  324  00  0  00  034154 


C20100:  SETOB  1 

XORM  1 

CAIE  1,0 
STOP* 

HALT  .+1 

JUMPA  .+1 


.'Preload  ac,e  with  -1,,-1 
;*Xorm  should  place  0  into  e 
.'Pass  if  c(e)=D 

.'Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;**•♦**••** 


17 
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SEQ  0150 


5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 
5980 
5981 
5982 
5983 
5984 
5985 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 


;Th1s  test  verifies  that  setzb  places  zeros  into  both  ac  and  e. 
; After  setzb  is  exe  *ed,  both  ac  and  e  are  checked  for  0.  if 
;Either  ac  or  e  contains  any  ones,  this  test  fails. 


034154  403  00  0  00  000001 

034155  316  00  0  00  034513 

034156  312  00  0  00  000001 

034157  254  04  0  00  034160 
034160  324  00  0  00  034161 


C20200: 

SETZB 

CAMN 

CAME 

STOP* 

HALT 

JUMPA 

1 

COJ 

1 

.+1 

;♦***•••*•♦ 

:*Setzb  should  place  zeroes  in  both  ac  and  e 
;Fail  if  c(ac)  is  non-zero 
;Fail  if  c(e)  is  non-zero 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  setab  places  c(ac)  into  both  ac  and  e. 
;First,  ac  is  preloaded  with  -1,,-1  and  e  is  preloaded  with  0; 
;Then,  setab  is  executed,  both  ac  and  e  are  che  ed  for  -1,,-1 
;If  either  ac  or  e  contain  any  zeros,  this  test  Tails. 


034161  400  01  0  00  000000 

034162  474  00  0  00  000000 

034163  427  00  0  00  000001 

034164  316  00  0  00  034443 

034165  312  00  0  00  000001 

034166  254  04  0  00  034167 
03416^  324  00  0  00  034170 


C 20300: 


SET2 

SETO 

SETAB 

CAMN 

CAME 

STOP* 

HALT 

JUMPA 


1, 


C-1J 
1 

.+1 
.+1 


; Pre load  e  with  0 
.•Preload  ac  with  -1,,-1 
;*Setab  should  place  -1*/-1 
.-Fail  if  c(ac)  is  not  -1,-1 
;Fail  if  c(e)  is  not  -1,,-1 


into  both  ac  and  e 


.-Test  failed  if  program  halts  here 
;To  loop  change  tnis  instruction* 


*****«•«*• 


J 


"l 


8 


r 
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SEQ  0151 


5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 


SUBTTL  XCT  INSTRUCTION  -  BASIC  TESTS 


jt  verifies  that  xct  will  execute  the  instruction  specified  by  c(e). 
case,  c(e)  specifies  a  movei  instruction,  after  executing  movei, 
should  return  to  the  next  sequential  instruction  following  xct.  thi 


;This  test 

;In  this 

.•Control  should  return  to  the  next  sequential  instruction  following  xct.  this 

;Test  passes  if  control  returns  to  the  next  sequential  instruction  following  xct. 


034170  403  00  0  00  000001 

034171  256  00  0  00  034517 

034172  334  00  0  00  000000 

034173  254  04  0  00  034174 

034174  324  00  0  00  034175 


C20400:  SETZB 

1 

XCT 

CMO 

SKIPA 

STOP* 

HALT 

.-n 

JUMPA 

.tl 

1,.-^2] 


; Clear  acO  and  ad 

;*Xct  should  return  control 


to  next  instruction 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


;This  test 
;In  this  case 
;The  ac  spec 
;C(ac)=0,J.  this 


verifies  that  xct  will  execute  the  instruction  specified  by  c(e) 
se,  c(e)  specifies  a  movei  instruction,  after  executing  movei, 
cified  by  movei  is  checked  for  0,,1  (the  expected  result),  if 


test  passes. 


034175  403  00  0  00  000001 

034176  256  00  0  00  034520 

034177  302  01  0  00  000001 

034200  254  04  0  00  034201 

034201  324  00  0  00  034202 


C20500:  SETZB 
XCT 
CAIE 
STOP* 
HALT 
JUMPA 

*********** 


1 

[MOVEI  1,1] 

.-^1 


; Clear  ac 
;*Xct  of  movei 
.-Pass  if  c(ac)=1 


should  place  1  in  the  ac 


.-Pass  If  c(ac;  =  i 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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SEQ  0152 


6029 

6030 

6031 

6032 

6033 

603A 

6035 

6036 

6037 

6038 

6039 

60A0 

6041 

60A2 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

6064 


034202  403  00  0  00  000001 

034203  256  00  0  00  034525 

034204  302  01  0  00  111111 

034205  254  04  0  00  034206 

034206  324  00  0  00  034207 


034207  403  00  0  00  000001 

034210  256  00  0  00  034526 

034211  332  00  0  00  000000 

034212  254  04  0  00  034213 

034213  324  00  0  00  034214 


034214  256  00  0  00  034527 

034215  254  04  0  00  034216 

034216  324  00  0  00  034217 


;This  test  verifies  that  a  nest  of  xct  instructions  will  execute  the 
; Instruction  specified  by  the  most  nested  xct  and  return  control  to  the 
;Next  sequential  instruction  following  the  first  xct.  in  this  case,  the 
.-Executed  instruction  is  movei.  after  executing  the  movei,  c(ac)  is 
.•Checked  for  0..-1  (the  expected  result),  if  cTac)=0.,-1,  this  test  passes 


C20600:  SETZB 
XCT 

CAIE 
STOP* 
HALT 
JUMPA 


CXCTCXCTCXCTCXCTCMOVEI  1.-13]]]]  :*Nested  xct  of 

;Should  place  0..-1  into 
1.-1  ;Pass  if  c(5c)=0..-1 


mov/ei 
ac 


.♦1 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  xct  will  not  modify  an  ac  which  is  not  specified  by 
.-The  executed  instruction,  in  this  case.  acO  is  cleared  and  then  checked  for 
;Zero  after  the  xct  instruction  is  executed.  acO  should  not  be  modified. 

;Clear  acO.acI 

;*Xct  should  not  modify  acO 

.-Pass  if  acO  was  not  modified 

.-Test  failed  if  program  halts  here 
;To  loop  change  tnis  instruction* 


C20700:  SETZB 

1 

XCT 

[MOVE  1.C-1]] 

SKIPE 

STOP* 

HALT 

.-^1 

JUMPA 

.♦1 

**t******* 


.-This  test  verifies  that  xct  of  skipa  should  return  control  to 
.-The  second  sequential  instruction  following  xct. 


C21000:  XCT 
STOP* 
HALT 
JUMP  A 


CSKIPA] 
.♦1 


;Xct  of  skipa  should  return  control  to 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


^2 
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SEO  0153 


6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 

6101 


034217  476  00  0  00  000001 

034220  201  07  0  00  000003 

034221  402  00  0  00  000003 

034222  200  01  1  00  000007 

034223  332  00  0  00  000001 


034224 
034225 


254  04  0  00  034225 
324  00  0  00  034226 


034226 
034227 

034230 
034231 


402  00  0  00  000001 
201  07  0  00  000003 
476  00  0  00  000003 
200  01  1  00  000007 


034232  312  01  0  00  034443 

034233  254  04  0  00  034234 

034234  324  00  0  00  034235 


SUBTTL  INDIRECT  ADDRESSING  -  BASIC  TESTS 


**t******* 


;This  test  \/erifies  that  indirect  addressing  works  when  both  e  and  Se 
;Are  within  the  ac  range,  the  instruction  specifying  indirect  addressing 
;Is  a  move,  after  move  is  executed,  c(ac)  is  checked  for  0,  the  initial 
.•Contents  of  the  indirect  address. 


C21100:  SETOM  1 

MOVEI  7.3 

SETZM  3 

MOVE  1.37 

SKIPE  1 
STOP* 

HALT  .-^1 

JUMPA  ."►I 


.•Preload  ac  with  -1..-1 

; Setup  direct  address  with  indirect  address 

.•Preload  indirect  address  with  0 

.•♦Fwt  from  indirect  addresss  should 

.•Place  0  into  the  ac 

;Pass  if  c(ac)=0 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  indirect  addressing  works  when  both  e  and  ie 
;Are  within  the  ac  range,  the  instruction  specifying  indirect  addressing 
;Is  a  move,  after  move  is  executed,  c(ac)  is  checked  for  -1..-1,  the 
.•Initial  contents  of  the  indirect  address. 


C21200:  SETZM 
MOVEI 
SETOM 
MOVE 

CAME 
STOP* 
HALT 
JUMPA 

• ********** 


1 

7.3 

3 

i,a7 

i,c-i,,-i] 

.♦1 
.♦1 


.•Preload  ac  with  -1..-1 

.•Setup  direct  address  with  indirect  address 

.•Preload  indirect  address  with  -1,,-1 

;*Fwt  from  indirect  address  should 

.•Place  -1.,-1  into  the  ac 

.•Pass  if  c(ac)=-1,,-1 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 
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2-0ct-84  Page  12 


SEQ  01 5A 


6102 
6105 
61 04 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 


034235  402  00  0  00  000001 

034236  201  07  0  00  000003 

034237  200  03  0  00  034530 

034240  200  01  1  00  000007 

034241  312  01  0  00  034530 


034242 
034243 


254  04  0  00  034243 
324  00  0  00  034244 


034244 
034245 
034246 
034247 
034250 


254  00  0  00  034246 
707070  707070 
402  00  0  00  000001 
201  07  0  00  034245 
200  01  1  00  000007 


034251  312  01  0  00  034245 

034252  23  04  0  00  034253 

034253  324  00  0  00  034254 


;This  test  verifies  that  indirect  addressing  works  when  both  e  and  3e 
;Are  within  the  ac  range,  the  instruction  specifying  indirect  addressing 
move,  after  move  is  executed,  c(ac)  is  checked  for  707070,, 707070, 


:Is  a 

;The  initial 

C21300:  SET2M 
MOVE  I 
MOVE 
MOVE 

CAME 
STOP* 
HALT 
JUMP  A 

•  ********** 


contents  of  the  indirect  address. 

1  .-Preload  ac  with  0 

7,3  .'Setup  direct  address  with  indirect  address 

3, C707070., 7070703  .-Preload  indirect  address  with  707070., 707070 
1.d7  ;*Fwt  from  indirect  address  should 

.-Place  707070,, 707070  into  the  ac 
1, [707070., 7070703     .-Pass  if  c(ac 5 =707070,, 707070 


♦1 
♦  1 


.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


.-This  test  verifies  that  indirect  addressing  works  when  e  is  within  the  ac 
.-Range  and  de  is  beyond  the  ac  range,  the  instruction  specifying  indirect 
.-Addressing  is  a  move,  after  move  is  executed.  c(ac)  is  checked  for 
.-707070,, 707070,  The  initial  contents  of  the  indirect  address. 


C21400:  JRST 

xyD 

SETZM 
MOVE  I 
MOVE 

CAME 
STOP* 
HALT 
JUMP  A 

• **♦**♦**♦* 


.♦2 

707070,707070 
1 

7.C21400*1 
1,37 

1,C21400M 
.♦1 


.-Indirect  address  and  its  data 

.-Preload  ac  with  0 

.-Setup  direct  address  with  indirect  address 

.-»Fwt  from  indirect  address  should 

.-Place  707070,, 707070  into  k 

.-Pass  if  c(ac)=707070. ,707070 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 
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SEQ  0155 


6136 

6137 

6138 

6139 

6140 

6U1 

6U2 

6H3 

6U4 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 


034254 
034255 
034256 
034257 
034260 


254  00  0  00  034257 
000000  034256 
202020  ?02020 
402  00  0  00  000001 
200  01  1  00  034255 


034261  312  01  0  00  034256 


034262 
034263 


254  04  0  00  034263 
324  00  0  00  034264 


034264 
034265 
034266 
034267 
034270 

034271 
034272 


254  00  0  00  034267 
000000  034266 
inni    272727 
200  01  0  00  034266 
312  01  1  00  034265 

254  04  0  00  034272 
324  00  0  00  034273 


034273 
034274 
034275 
034276 
034277 

034300 
034301 


254  00  0  00  034275 
252525  252525 
201  07  0  00  034274 
200  01  0  00  034274 
312  01  1  00  000007 

254  04  0  00  034301 
324  00  0  00  034302 


.-This  test  verifies  that  indirect  addressing  works  when  both  e  and  ie 
;Are  beyond  the  ac  range,  the  instruction  specifying  indirect  addressing 
;Is  a  move,  after  move  is  executed,  c(ac)  is  checked  for  202020,, 202020, 
;The  initial  contents  of  the  indirect  address. 


C21500:  JRS: 

XUD 

SETZM 

MOVE 

CAME 
STOP* 
HALT 
JUMP  A 


.♦3 

202020,202020 

1 

l,aC21500O 

1,C21500^2 

.*! 
.♦1 


.'Direct  address  and  its  data 
; Indirect  address  and  its  data 
; Pre load  ac  with  0 
;*Fwt  from  indirect  address  should 
.-Place  202020 -,202020  into  ac 
;Pass  if  c(ac 5 =202020,, 202020 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


;This  test  verifies  that  indirect  addressing  works  when  both  e  and  3e 
;Are  beyond  the  ac  range,  the  instruction  specifying  indirect 
.-Addressing  is  a  came. 


C21600:  JRST 

XUD 

MOVE 

CAME 

STOP* 

HALT 

JUMP  A 


.♦3 

.♦1 

272727.272727 
1,C21660^2 
l,aC21600^1 


.-Direct  address  and  its  data 
.-Indirect  address  and  its  data 
.-Preload  ac 
.-♦Came  of  data  from  indirect  address 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


-  non-ac  range 


.-This  test  verifies  that  indirect  addressing  works  when  e  is  within  the  ac 
; Range  and  ie  is  beyond  the  ac  range,  the  instruction  specifying  indirect 
.'Addressing  is  a  came. 


C21700:  JRST 
XUD 
MOVE  I 
MOVE 
CAME 
STOP* 
HALT 
JUMPA 


.♦2 

252525.252525 

7,C2176on 

1,C21700H 

1,a7 

.♦1 
.♦1 


.'Indirect  address  and  its  data 

.'Setup  direct  address  with  indirect  address 

.'Setup  ac 

.'♦Came  if  data  from  indirect  address  -  ac  range 

.'Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


J 


-^ 
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SEQ  0156 


6181 

6182 

6183 

61 8A 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

61 94 

6195 

6196 

6197 

6198 

6199 

6200 

6201 

6202 

o203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

6213 

6214 

6215 

6216 

6217 

6213 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 


034302 
034303 
034304 
034305 
034306 
034307 
034310 
034311 
034312 
03431 3 


201  01 

201  03 

201  04 

201  05 

201  06 

201  07 

201  10 

201  11 

201  12 

201  13 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


77777^ 
000002 
000010 
000001 
000005 
000007 
000004 
777772 
000005 
000002 


034314  254  00  0  00  034345 


034315 
034316 
034317 
034320 
034321 
034322 
034323 
034324 
034325 
034326 
034327 
034330 
034331 
034332 
03<«333 
034334 
034335 
034336 
034337 
034340 
034341 
034342 
034343 
034344 


000003 
000020 
220220 
000020 
221221 
21/217 
000000 
000000 
000000 
000000 
223223 
000004 
222222 
000000 
000007 
000020 
225225 
000000 
000000 
224224 
226226 
000000 
000025 
000000 


034320 
034323 
220220 
034325 
221221 
217217 
034317 
034324 
034321 
034324 
223223 
034330 
222222 
034332 
034322 
034337 
225225 
034336 
034335 
224224 
226226 
034327 
034343 
034341 


SUBTTL  TEST  INDIRECT  ADDRESSING  WITH  INDEXING 
; Setup  index  registers 


MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 
MOVE  I 


1,-4 

3,2 

4J0 

5,1 

6,5 

l6,4 
11,-6 
12,5 
13,2 


JRST    C22000  ;Resume  test 

; Indirect  addressing/indexing  test  table 


;Do  not 

#  #  •  # 

modify 

•  •  • 

this  table  or  te 

E217: 

#  #  # 

E217A(3) 

E220: 

aE220A 

E220B: 

220220, 

,220220 

E217A: 

aE221A 

E221B: 

221221, 

,221221 

E222A: 

217217, 

,217217 

E22C'\: 

E220B 

E22 1 : 

E221 

E221A: 

E221B 

E222: 

E221 

E223A: 

2232231, 

,223223 

E224A: 

E224A(4) 

222222, 

.222222 

E225: 

E225 

E222A(7) 

aE225A 

E225B: 

225225, 

,225225 

E223: 

E223 

E225A: 

E2258 

22^22^, 

,224224 

E226B: 

226226, 

,226226 
E223A 

E226A: 

aE226A(5) 
E2268 

;E221-4 
;E217a^2 


;E223-6 
;E222a+7 

;E222*5 
:E225^2 


;E224a+10 

;E223K 
;E223+5 
;E226a+1 


K4 


03A3A5  476  00  0  00  000002 

03A346  200  02  1  00  03A315 

03A347  312  02  0  00  034322 

03A350  254  04  0  00  034351 

034351  324  00  0  00  034352 


DFKAD  PDP10  KL10 
DFKAD1   MAC 


6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 

6248 
6249 
6250 
6251 
6252 
6255 
6254 
6255 
e256 


BASIC  INSTRUCTION  DIAGNOSTIC  (4)  0,2   MACRO  :53A(1152)  10:53 
1-0ct-84  16:01        TEST  INDIRECT  ADDRESSING  WITH  INDEXING 


2-Cct-84  Page  75 


SEQ  0157 


This  test  verifies  that  indirect  addressing  in  combination  with  indexing 
Functions  correctly,  in  this  case,  move  2,ae217  is  tested  where 
C(e217)=e217a(3)  and  c(3)=0,,2.  hence,  the  result  in  the  ac  should  be 
C(e217a+2)=217217,,2172i;'  . 


C22000:  SETOM 
MOVE 
CAME 
STOP* 
HALT 
JUMPA 

•*♦•♦••♦♦•• 


2,aE217 
2,E217A+2 

.+1 


.-Initialize  ac 

;Test  indirect  addressing  with  indexing 

.Pass  if  c(ac)=217217, ,217217 

;Test  failed  if  program  hrlts  here 
;To  loop  change  this  instruction* 


;Ti.is  test  verifies  that  indirect  addressing  in  combination  with  indexing 
.-Functions  correctly.   in  this  case,  move  2,ae220  is  tested  where 
.-C(e220)=ae220a  and  c(e220a)=e220b.  hence,  the  result  in  the  ac  should 
.-Be  c(e220b)=220220,, 220220  . 


034352  402  00  0  00  000002 

034353  200  02  1  00  034316 

034354  312  02  C  00  034317 

034355  254  04  0  00  034356 

034356  324  00  0  00  034357 


C22100: 


SETZM 

2 

MOVE 

2,aE220 

CAME 

2,E220B 

STOP* 

HALT 

.+1 

JUMPA 

.•H 

.-Initialize  ac 

.-Test  indirect  address "•ng  with  indexing 

;Pass  if  c(ac)=220220, ,220220 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


♦*♦♦*♦*»♦• 


r 


145 
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SEQ  0158 


6257 
6258 
6259 
6260 
6261 
6262 
6163 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 


;This  test  verifies  that  indirect  addressing  in  combination  with  indexing 
.-Functions  correctly,  in  this  caseje221(1)  2,de217  is  tf»sted  where  c(1)=-4 
;And  e221-4=e217a.  hence,  the  result  in  the  ac  should  be 
;C(e217a)=ae221a=20,,e221a  . 


034357  476  00  0  00  000002 

034360  200  02  0  01  034324 

034361  312  02  0  00  034320 

034362  254  04  0  00  034363 

034363  324  00  0  00  034364 


C22200:  SETOM 
HOVE 
CAME 
STOP* 
HALT 
JUMP  A 


•♦♦»♦♦*♦♦♦» 


2,E221(1) 
2,E217A 

.♦1 


; Initialize  ac 

;Test  indirect  addressing  with  indexing 

;Pass  if  c(ac)=ae221a=20,,e221a 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


034364  402  00  0  00  000002 

034365  200  02  0  06  034326 

034366  312  02  0  00  034333 

034367  254  04  0  00  034370 
034370  324  00  0  00  034371 


;This  test  verifies  that  indirect  addressing  in  combination  with  indexing 
.-Functions  correctly,  in  this  case,  move  2.1222(6)  is  tested  where  c(6)=5 
.-Hence,  the  result  in  the  ac  should  be  c(e222"»'5)=e222a(7)=7,,e222a  . 

; Initialize  ac 

;Test  indirect  addressing  with  indexing 

.-Pass  if  c(ac)=e222a(7)=7,,e222a 

;Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


C22300:  SETZM 

2 

MOVE 

2.E222i6) 

CAME 

2,E222^5 

STOP* 

HALT 

.^^ 

JUMPA 

.*! 

*********** 


f 


46 
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SEO  0159 


6283 
628A 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
629A 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
630A 
6305 
6306 
6307 
6308 
6309 


0343/^1  476  00  0  00  000002 

034372  200  02  1  10  034336 

034373  312  02  0  00  034327 

034374  254  04  0  00  034375 

034375  324  00  0  00  034376 


This  test  verifies  that  indirect  addressing  in  combinttion  with  indexing 
Functions  correctly,  in  this  case,  move  2,Se223(10)  is  tested  where  c(10)=4 
And  c(e223"»'4)=e223a.  hence,  the  result  in  the  ac  should  be 
C(e223a)=223223,, 223223  . 

; Initialize  ac 

;Test  indirect  addressing  with  indexing 

.-Pass  if  c(ac)=223223,, 223223 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


C22400:  SETOM 

2 

MOVE 

2,aE223(10) 

CAME 

2,E223A 

STOP* 

HALT 

.♦1 

JUMP  A 

.^1 

034376  402  00  0  00  000002 

034377  200  02  1  11  034336 

034400  312  02  0  00  034340 

034401  254  04  0  00  034402 

034402  324  00  0  00  034403 


*********** 

, 

;This  test  verifies  that  indirect  addressing  in  combination  with  indexing 
.-Functions  correctly,  in  this  case,  move  2,de223(11)  is  tested  where 
;C(11)=-6,  c(e223-6)=e224a(4)  and  c(4)=10.  hence,  the  result  in  the  ac 
.-Should  be  c(e224a*10)=224224,, 224224  . 

; Initialize  ac 

.-Test  indirect  addressing  with  indexing 

.-Pass  if  c(ac)  =224224., 224224 


C22500:  SETZM 

2 

MOVE 

2,aE223(11) 

CAME 

2,E224A*10 

STOP* 

HALT 

.♦t 

JUMP  A 

.♦1 

.-Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


r 


-I 
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SEQ  0160 


6310 
6311 
6312 
6313 
63U 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 

6338 
6339 
6340 


034403  476  00  0  00  000002 

034404  200  02  1  13  034332 

034405  312  02  0  00  034335 

034406  254  04  0  00  034407 

034407  324  00  0  00  034410 


034410  402  00  0  00  000002 

034411  200  02  1  12  034336 

034412  312  02  0  00  034341 

034413  254  04  0  00  034414 

034414  324  00  0  00  034415 


03A415  40?  00  0  00  034572 
034416  l:>     00  0  00  030057 


;This  test  verifies  that  indirect  addressing  in  combination  with  indexing 
.-Functions  correctly,  in  this  case,  move  2.ie225(13)  is  tested  where  c(T3)=2, 
;C(e225^2)=8e225a  and  c(e225a)=e225b.  hence,  the  result  in  the  ac  should  be 
;C(e225b)=225225. .225225. 

.-Initialize  ac 

.-Test  indirect  addressing  with  indexing 

.-Pass  if  c(ac)=225225.. 225225 


C22600: 

SETOM 

2 

novE 

2.8E225(13) 

CAME 

2.E225B 

STOP* 

HALT 

.♦1 

JUMP  A 

.♦1 

;Test  failed  if  program  halts  here 
;To  loop  change  this  instruction* 


********** 


.-This  test  verifies  that  indirect  addressing  in  combination  with  indexing 
.-Functions  correctly,  in  this  case,  move  2.ae223(12)  is  tested  where 
;C(12)=5.  c(e223^5)=ae226a(5).  c(5)=1  and  c(e226a*1)=e226b.  hence,  the 
.-Result  in  the  ac  should  be  c(e226b)=226226.. 226226. 


C22700:  SETZM 
HOVE 
CAME 
STOP* 
HALT 
JUMPA 

•  ********** 


ENDIT:   SETZM 
JRST 


2.aE223(12) 
2.E226B 

.-^1 


.-Initialize  ac 

.-Test  indirect  addressing  with  indexing 

.-Pass  if  c(ac)  =226226.. 226226 

.-Test  failed  if  program  halts  here 
.-To  loop  change  this  instruction* 


TNUMB# 
BEGEND 


f 


OFKAD  PDP10  KL10  BASIC 

STOR  KLM  18-Sep- 

63A1 

63A2 

63A3 

63AA 

63A5 

63A6 

63A7  03A417 

65A8  034417  000001 

6349  034420  254  00 

6350  034421  000001 

6351  034422  000002 

6352  034423  000004 

6353  034424  000010 

6354  034425  000020 

6355  034426  000040 

6356  034427  000100 

6357  034430  000200 

6358  034431  000400 

6359  034432  001000 

6360  034433  002000 

6361  034434  004000 

6362  034435  010000 

6363  034436  020000 

6364  034437  040000 

6365  034440  100000 

6366  034441  200000 

6367  034442  400000 

6368  034443  117111 

6369  034444  ''11111 

6370  034^45  11^111 
63/ i  054^46  TiHll 
63/2  0?;<»47  111111 
63:^3  054450  111111 

6374  034451  111111 

6375  034452  111111 
tilt  034453  mill 
till  034454  mill 

6378  034455  111111 

6379  034456  111111 

6380  034457  111111 

6381  034460  111111 

6382  034461  111111 

6383  034462  111111 

6384  034463  111111 

6385  034464  111111 

6386  034465  111111 

6387  034466  lllllt 

6388  034467  lllllt 

6389  034470  llllll 

6390  034471  lllltl 

6391  034472  llll'yl 

6392  034473  llllll 

6393  034474  llltll 

6394  034475  lll'ill 

6395  034476  llllll 


INSTRUCTION  DIAGNOSTIC  (4)  0-2   MACRO  X53A(1152)  10:53  2-0ct-84  Page  1 
■>9  ''":18        *STOR*  RESERVED  STORAGE,  SEPT  18,1979 

SUBTTL  •STOR*  RESERVED  STORAGE,  SEPT  18,1979 

.-PROGRAM  LITERALS 

XLIST 
IFNDEF  $LPAPER,<LIST> 

LIT 
000001 
0  00  030715 
000000 
000000 
000000 
000000 
000000 
000000 

cooooo 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

llllll 
lllllt 

111115 

llllll 
lllltl 

111151 

llllll 
llltll 

111511 

llllll 
lltlll 

115111 

llllll 
Itllll 

151111 

llllll 
tlllll 

511111 

llllll 
llllll 
llllll 
llllll 
llllll 
llllll 
llllll 
llllll 
mm 
mm 


SEO  0161 


J 
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SEQ  0162 


6396 

034477 

776777 

777777 

6397 

034500 

775777 

777777 

6398 

034501 

771777 

777777 

6399 

034502 

767777 

777777 

6A00 

034503 

757777 

777777 

6401 

034504 

717777 

777777 

6402 

034505 

677777 

777777 

6403 

034506 

577777 

777777 

6404 

034507 

177777 

777777 

6405 

034510 

777777 

000000 

6406 

034511 

000000 

777777 

6407 

034512 

252525 

252525 

6408 

034513 

000000 

000000 

6409 

034514 

254  04  0  00  032717 

6410 

034515 

177777 

177777 

6411 

034516 

400000 

400000 

"           ,  . 

6412 

034517 

201  01 

0  00  034173 

6413 

034520 

201  01 

0  00  000001 

6414 

034521 

201  01 

0  00  777777 

6415 

034522 

256  00  0  00  034521 

6416 

034523 

256  00  0  00  034522 

6417 

034524 

256  00  0  00  034523 

6418 

034525 

256  00  0  00  034524 

6419 

034526 

200  01 

0  00  034443 

6420 

034527 

334  00  0  00  000000 

6421 

03453C 

707070 

707070 

6422 

LIST 

6423 

034531 

000000 

000000 

ENDSLD:  0 

6424 

6425 

IFDEF   DEBUG, < 

6426 

034532 

PATCH:  BLOCK  DEBUG 

.-PATCHING  AREA 

6427 

> 

6428 

6429 

; PROGRAM  VARIABLES 

6430 

034572 

VAR 

6431 

6432 

IFDEF   PGMEND,< 

6433 

034573 

000000 

000000 

END:    0 

6434 

030000 

END     BEGIN   > 

NO  ERRORS  DETECTED 

PROGRAM 

BREAK  IS  OOOOOC 

1 

ABSOLUTE  BREAK 

IS  034574 

CPU  TIME  USED  00:18.819 

1 

23P  CORE  USED 


ABORT 

92# 

AC 

5681 #   5682 
5705    5706 

ACO 

693# 

ALTMGO 

AA6# 

AMCLRB 

360# 

ANXM 

360# 

AROV 

360#   A820 

AROVTP 

360# 

AROVU 

360# 

AST 

56U 

ATSIN 

562# 

BEGEND 

AA2#   63A0 

BEGIN 

A3     AA 

736    8AA 

BEGIN1 

389#    AA3 

BELL 

565# 

BIS 

360# 

C100 

887* 

CI  000 

18A0* 

CI  0000 

5015* 

C10100 

5035* 

CI  0200 

505A# 

CI  0300 

507A# 

C10A00 

5091  # 

CI  0500 

5103# 

C1 100 

2137# 

C11200 

5117# 

C1 1300 

513C# 

C11A00 

51A2# 

C11500 

5155# 

CI 1600 

5166* 

CI 1700 

5178* 

CI  200 

2151* 

CI  2000 

5192* 

C12100 

5207* 

CI  2200 

5235* 

ci23;oo 

5250* 

CI  2301 

5278* 

CI  2600 

5308* 

CI 2700 

5321* 

CI  300 

2570* 

C13100 

5333* 

CI  3200 

5346* 

CI  3300 

5359* 

C13A00 

5386* 

C1];600 

5417* 

CI  3700 

5435* 

C1A00 

2993* 

C1A000 

5452* 

C1A100 

5474* 

CU200 

5491* 

C1A500 

5516* 

5687 
>7 


5708   5709 


5688 


5690 
5711 


5691 
5712 


5693    5694    5696    5697    5699    5700    5702    5703 
571A    5715    5716 


SEQ  0163 


A999    5003 


45 
6434 


46 


m 


48 


49 


50 


51 


52 


53 


307 


308 


373* 


—- r-^ 


CU600 
C1A700 
CI  500 
CI  5000 
C15100 
CI  5200 
CI  5300 
C15A00 
CI  5500 
CI  5600 
CI  5700 
CI  600 
CI  6000 
C16100 
C 16200 
CI  6201 
CI  6202 
C16A00 
CI  6500 
CI  6600 
CI  6700 
CI  700 
CI  7000 
C17100 
CI  7200 
CI  7300 
CI  7400 
CI  7500 
CI  7600 
CI  7700 
C200 
C2000 
C 20000 
C20100 
C 20200 
C 20300 
C 20400 
C 20500 
C 20600 
C 20700 
C2100 
C21000 
C21100 
C21200 
C21300 
C21400 
C21500 
C21600 
C21700 
C2200 
C 22000 
C22100 
C22200 


5528# 
55A1# 
3007# 
5552# 
5564# 
5577# 
5589# 
5601  # 
561 7# 
5630# 
564  3# 
3426# 
5655# 
5668# 
568U 
5727# 
5754# 
5785# 
5798# 
581 04f 
5823* 
3854* 
5837# 
5855* 
5868# 
5882# 
5894* 
5908* 
592 1# 
5935# 
901  # 
4055* 
5948* 
5962# 
5974# 
5988# 
6007* 
602  U 
6035# 
604  9# 
4254# 
6061  # 
6074* 
609U 
6107# 
6124# 
614U 
6158# 
61734f 
4267# 
6196 
6249# 
6262# 
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6145 
6161 
6175 

6235# 


6130 
6147 
6162 
6176 
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C 22300 

6275# 

C22A00 

» 

C22500 

C 22600 

631 5# 

C 22700 

6329# 

C2400 

4280« 

.C2410 

A287# 

1 C2700 

4299# 

;C2710 

A306# 

91 3# 

i  C3000 

A3174f 

iC3100 

A339# 

C3110 

A35A# 

C3200 

A36A# 

'C3210 

A371# 

C3300 

A38A# 

C3A00 

A398# 

C3500 

AA13# 

C3600 

AA29# 

C3700 

AAA3# 

CAOO 

926# 

i  CAOOO 

AA57# 

CA100 

AA72# 

CA200 

AA86# 

CA300 

A50U 

i  CAAOO 

A516# 

CA500 

A529* 

CA600 

A5A3# 

! CA700 

A556# 

C500 

9A1# 

C5000 

A571# 

C5100 

A5854f 

C5200 

A599# 

! C5300 

A61A4f 

C5A00 

A629# 

C5500 

A6A54f 

C5600 

A663# 

C5700 

A680# 

C5701 

A695# 

C5702 

A709# 
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1258# 

C6000 

A727# 

C6100 

A7A2# 
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A757# 

C6300 

A776# 
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C6A00 

A797# 

C6500 

A818# 
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IC7200 
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C7300 

4931# 

C7A00 

4950# 

C7500 

4966# 

C7600 

A979# 

C7700 

A996# 
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360# 

CHAIN 

112# 

CHNOFF 

360# 

CHNON 

360# 

CLK 

360# 

CLKCLR 

360# 

\            CLKDIS 

360# 

I            CLKENB 

360# 

?     CLKU 

360# 

I            CLOCKF 

A28# 

CNTLC 

4A5# 

CNTRP 

360# 

COMMA 

5:^M 

1    :  CONSW 

A29# 

1     CROP  J 

449# 

'CP0PJ1 

4A7# 

^     CRLF 

2A2 

243 

549# 

CRLF2 

246 

2^7 

551# 

iCRYO 

360# 

4760 

4890 

5018    5022 

'  CRY1 

360# 

4837 

5038 

5042 

i     CSHFLG 

608# 

1     CSHMEM 

609* 

1     CTRP 

360# 

!     CVCL60 

602# 

i     DCK 

360# 

5476 

5480 
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DDT 

695# 

IDDTLNK 

126# 
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1    IDDTSRT 

387# 
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30# 

r425 
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44f 

10 

24 
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Of22f 
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' 

DIAGMN 

376# 

i 

DIAGNO 

694# 

V 

DIAMON 

696# 

DING 
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i  DOLLAR 

568# 

1  D0NG1 1 
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828 

841 

1    '  DSKUPD 
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701# 
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841 

DTEO 

702# 

1 

DTE1 

703# 

i 

DTE2 

704# 

DTE3 

705# 
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6206* 

6236 
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E220 
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6250 
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6251 
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END 
ENDFIX 
ENDIT 
ENDSLD 
ERDIAG 
ERHORE 
ERRPC 
ERRTLS 
ERSTOP 
EXCASB 
EXCHEW 
EXCPFy 
EXIOT 
FOV 
FOVU 
FRDLNK 
FSELNK 
FXU 
HYPEN 
lADBRK 
lADEXC 
lADSTP 
lADUSR 
IAPRC1 
IAPRE1 
lASRTC 
lASRTE 
lASRTS 
ICNSLL 
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IDATAF 
lEVNPR 
IFMHAN 
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IIOPFC 
IIOPFL 
IMAINT 
IMGINM 
IMGNLO 
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621 3# 

6213 

6215 

6209 

62:4# 

6210# 

62U 

621 5# 

6276 

6277 

6211# 

6220 

6223# 

6223 

6289 

6216* 
621 7# 

6227 

6290 

6217 

6304 

6219# 

6219 

6316 

6221 

6224# 

6222# 

6224 

6317 

6228# 

6228 

6226# 

6229 

6331 

6433# 

688# 

6339* 

6423# 

37# 

462# 

A33# 

A3A# 

10U 

31# 

411 

360# 

360# 

360# 

360# 

4855 

4870 

360# 

12A4f 

123# 

360# 

5437 

5441 

559# 

360# 

360# 

360# 

.^ 

360# 

360# 

360# 

360# 

360# 

360# 

360# 

360# 

360* 

360# 

360# 

360# 

360# 
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360# 

360# 

360# 

360# 

6263 
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4911 


5454 


5057 


5463 


5061 


5419 


IMGNON 

360# 

IMIP6D 

360# 

IMLAPD 

360# 

INHCSH 

109# 

NHPAG 

106# 

NXCLR 

360# 

Nxn 

360# 

.NXSTP 

360# 

lOCLR 

360# 

IP50HZ 

360# 

IPAREN 

360# 

I RARER 

360# 

IPRSTP 

360# 

IPWRFL 

360# 

IPWRLO 

360# 

IRQCLR 

360# 

I SPDOF 

360# 

ISPDON 

360# 

HERAT 

650        A06 

IThDIS 

360# 

ITMENB 

360# 

ITMOEN 

360# 

I  TROUT 

360# 

ITMSET 

360# 

ITRCH1 

466* 

ITRCNT 

406#        782 
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360* 

J0BA1 

360# 

JOBAPR 

36C# 

JOBCNl 

360# 

JOBDDT 

360# 

JOBFF 

360# 

JOBOPC 

360# 

JOBREL 

360# 

JOBREN 

360* 

J06SA 

360# 

JOBSYM 

360* 

JOBTPC 

360# 

JOBUSY 

360# 

JOBUUO 

360# 

JOBVER 

360# 

KA10 

360 

KAHZ50 

1U# 

KAIFLG 

423* 

KI10 

33*        360 

KL10 

34*        360 

KLIOPO 

360 

KLIOPO 

35* 

KLFLG 

424*        783 

KLOLD 

322 

KNTRP 
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KTRP 

360* 

LAPRAL 
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LAPRP1 

360# 

LAPRP2 

!60# 

LAPRP3 

360# 

LAPRPA 

360# 

LAPRP5 

360# 

LAPRP6 

360# 

LAPRP7 

360# 

LAROVT 

360* 

LCASDE 

360# 

LCASLD 

360# 

LCASLO 

360# 

LCASUB 

360# 

LCASUD 

360# 

LCCASD 

360# 

LCHNOF 

360* 

LCHNON 

360# 

LCIOPF 

360* 

LCNTRP 

360* 

LCNXER 

!S0# 

LCPAER 

360* 

LCPWRF 

360* 

LCSBER 

360* 

LCSLOA 

360* 

LCSLOC 

360* 

LCTRP 

360* 

LCUSX 

360* 

LDATAF 

360* 

LDCASD 

360* 

LDEXCB 

360* 

LDIOPF 

360* 

LDLNK 

125*        376          378 

LDNXER 

360* 

LDPAER 

360* 

LDPWRF 

360* 

LDSBER 

360* 

LDUSR6 

360* 

LECASD 

360* 

LEIOPF 

360* 

LENXER 

360* 

LEPAER 

360* 

lepv;rf 

360* 

LESHER 

360* 

LEU^fW 

360* 

LEVNCD 

360* 

LEVNPA 

360* 

LEVNPD 

360* 

LEXCMP 

360* 

LFL6CL 

360* 

LFLGDS 

360* 

LFLGEN 

360* 

LFL6ST 

360* 

LFP 

563* 

LINSTF 

360* 
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LINT 

360# 

LIOCLR 

360# 

LIOPFE 

360# 

LIP 

360# 

LKNTRP 

360# 

LKTRP 

360# 

LLACBL 

360# 

LLDUSB 

360* 

LLPRCN 

360# 

LMUUO 

360# 

LMUUOP 

360* 

LNXMEN 

360# 

LNXMER 

360# 

LOOPER 

100* 

LPAREN 

360* 

LPARER 

360* 

LPDOVT 

360* 

LPFUPC 

360* 

LPGFTR 

360* 

LPICH1 

360^ 

LPICH2 

360* 

LPICH3 

360* 

LPICHA 

360* 

LPICH5 

360* 

LPICH6 

360* 

LPICH7 

360* 

LPICHA 

360* 

LPICLR 

360* 

LPIIP1 

360* 

LPIIP2 

360* 

LPIIP3 

360* 

LPIIPA 

360* 

LPI1P5 

360* 

LPIIP6 

360* 

LPIIP7 

360* 

LPIOFF 

360* 

LPION 

360* 

LPNTRP 

360* 

LPRCH1 

360* 

LPRCH2 

360* 

LPRCH3 

360* 

LPRCHA 

360* 

LPRCH5 

360* 

LPRCH6 

360* 

LPRCH7 

360* 

LPTRP 

360* 

LPWRFr 

360* 

LPWRFL 

360* 

LREQSE 

360* 

LRQCLR 

360* 

LSBSEN 

360* 

LSBUSE 

360* 

LSCASD 

360* 
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LSECMO 

LSIOPF 

LSMODE 

LSNTRP 

LSNXER 

LSPAER 

LSPWRF 

LSSBER 

LSTRP 

LTRP3T 

LTRPAE 

LTRPEN 

LUSCMP 

LUUO 

LUU01 

LUU01 0 

LUU01 1 

LUU01 2 

LUU01 3 

LUUOU 

LUU01 5 

LUU016 

LUU01 7 

LUU02 

LUU020 

LUU021 

LUU022 

LUU023 

LUU02A 

LUUOZd 

LUU026 

LUU027 

LUU03 

LUU030 

LUU031 

LUU032 

LUU033 

LUUOA 

LUU05 

LUU06 

LUU07 

LUUOI 

LWRITE 

MAPNEU 

MARGIN 

MCNVER 

NEniOU 

HEMMAP 

HEMS I Z 

WEMTOT 

MINUS 

MODDVC 

MODDVL 


360/r 

360# 
360# 
360# 
360# 
360/r 
360# 
360# 
360* 
360# 
360# 
360# 
360# 
360# 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
493 
360# 
360# 
514A 
4364f 
3# 
516# 

38/r 

517* 
515* 
558* 
108* 
307 


494 
498 
498 
499 
499 
500 
500 
501 
501 
495 
502 
502 
503 
503 
504 
504 
505 
505 
495 
506 
506 
507 
507 
496 
496 
497 
497 


10 
414 


» 


408 


307*    409 
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WODDVU 
nODLNK 
WONCTL 
W0NFL6 
HONTEN 
WONTYP 
WPVU 

nuuo 

HUUOPC 
NOPNT 

Nxnu 

OPRSEL 

OPT  I HE 

P 

PAG 

PALERS 

PARCLR 

PARDIS 

PAREAO 

PAREA1 

PAREA2 

PAREA3 

PAREA4 

PAREA5 

PAREA6 

PAREA7 

PAREA8 

PARENB 

PARU 

PASCNT 

PATCH 

PDISF 

PDLOVU 

PDOVTP 

PERIOD 

PFSTRT 

PGFTRP 

PGHEND 

PGHNAH 

PI 

PICHN1 

PICHN2 

PICHN3 

PICHNA 

PICHN5 

PICHN6 

PICHN7 

PICHNA 

PICLR 

PIOFF 

PION 

PLIST 

PLISTE 
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127# 

426# 

A25# 

A27# 

6A0# 

ZtOM 

360# 

360# 

96# 

360# 

110# 

528# 

153 

360# 

102# 

360# 

360# 

58# 

594 

60# 

6U 

620 

63# 

6A# 

41 5# 

41 6« 

360* 

36C# 

430# 

6426# 

525* 

360# 

360* 

555* 

382* 

360* 

36* 

407 

815 

360* 

360* 

360* 

360* 

360* 

360* 

360* 

360* 

360* 

360* 

360* 

594* 

594 


308* 
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823 
776 

781 


410 
850 
809 
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835 


154 


155 


156 


360*    448 


404 
405 
402 
403 
415 
416 


802 


6432 
851 


854* 


594 
596* 


PLISTS 

PLUS 

PNTENB 

PNTEXT 

PNTFLG 

PNTINH 

PNTLPT 

PNTNAW 

PNTRP 

PNTSPC 

PTRP 

PVPAGI 

PWFCLR 

QUEST 

RADIX 

RADLSC 

RADLSP 

RANDBS 

REENTR 

RELIAB 

REPT 

REPT1 

REPTU 

REQSET 

RESRT1 

RESRT2 

RETURN 

RSTART 

RTP 

RUNFLG 

SADR1 

SADR10 

SADR1 1 

SADR2 

SADR3 

SADRA 

SADR5 

SADR6 

SADR7 

SADR8 

SADR9 

SBINIT 

SCOPE 

SENSE  1 

SENSE2 

SENSE3 

SENSE4 

SENSES 

SENSE6 

SFSTRT 

SLASH 

SM10 

SHLUSR 


595# 

560# 

52A# 

403# 

523# 

526# 

97# 

402# 

360# 

527# 

360# 

621# 

360# 

566# 

569# 

57U 

570# 

AOA« 

384# 

104# 

360* 

360# 

482# 

360# 

A59# 

A60# 

391  f 

93# 

56A# 

431# 

A3# 

52# 

53# 

A4# 

45# 

A6# 

47f 

A8# 

A9# 

50# 

51# 

166 

483# 

360* 

360* 

360* 

360* 

360* 

360* 

380* 

567* 

671* 

360* 


811 


380 
396 
397 
382 
38A 

4A5 
446 
393 
394 
395 
390* 


818 


836 
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SN 

933# 

999 

999* 

1015 

1015* 

1095# 

1111 

nil* 

1127 

1127* 

120?# 

1223 

1223* 

1239 

1239* 

UOO 

1400* 

1417 

1417* 

1434 

1519 

1519* 

1536 

1536* 

1553 

1635# 

1651 

1651* 

1667 

1667* 

17A7# 

1763 

1763^ 

1779 

1779* 

1881 

1881* 

1899 

1899* 

1917 

2007 

2007* 

2025 

2025* 

2043 

2U8# 

2179 

2179* 

2201 

2201/ 

2311# 

2333 

2333* 

2355 

2355* 

2465# 

2487 

2487* 

2509 

2509* 

2642 

2642* 

2664 

2664* 

2686 

2796 

2796* 

2818 

2818* 

2840 
3004* 

2950 

2950* 

2972 

2972* 

3123# 

3145 

3145* 

3167 

3167* 

3277* 

3299 

3299* 

3321 

3321* 

3454 

3454* 

3476 

3476* 

3498 

3608 

3608* 

3630 

3630* 

3652 

3762 

3762* 

3784 

3784* 

3806 

3889# 

3901 

3901* 

3913 

3913* 

3973* 

3985 

3985* 

3997 

3997* 

4078 

4078* 

4090 

4090* 

4102 

4162 

4162* 

4174 

4174* 

4186 

SNTRP 

360# 

SPACE 

556# 

SRTDDT 

386# 

START 

374 

779 

787 

795 

799 

START1 

3934f 

START2 

394# 

START3 

395# 

STARTA 

396# 

STARTS 

3970 

STARTA 

389 

797 

808 

817 

824 

STRP 

360# 

SUBLNK 

128# 

390 

SWPTAB 

6770 

SUTEXR 

405# 

SYSEXR 

37S0 

TAB 

5570 

TESTPC 

432# 

TICKS 

435# 
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TNO 

360# 
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TNI 

360* 

TNUMB 

6339# 

6339 

TOTALS 

94# 

TRP3TP 

360# 

TRPENB 

360# 

TTNBRF 

61 5# 

TTYFIL 

531# 

TTYSPD 

532# 

TXTINH 

105* 

UOLIP 

360* 

1031 

1143 

1249* 

1434* 

1553* 

1683 

1795 

1917* 

2043* 

2223 

2377 

2531 

2686* 

2840* 

3035 

3189 

3343 

3498* 

3652* 

3806* 

3925 

4009 

4102* 

4186* 


847* 


1031* 

1143* 

1332 

1451 

1570 

1683* 

1795* 

1935 

2061 

2223* 

2377* 

2531* 

2708 

2862 

3035* 

3189* 

3343* 

3520 

3674 

3828 

3925* 

4009* 

4114 

4198 


1047 

1159 

1332* 

1451* 

1570* 

1699 

1811 

1935* 

2061* 

2245 

2399 

2553 

2708* 

2862* 

W^ 

321 

336:> 

3520* 

3674* 

3828* 

3937 

4021 

4114* 

4198* 


1047* 

1159* 

1349 

1468 

1580* 

1699* 

1811* 

1953 

2079 

2245* 

2399* 

2553* 

2730 

2884 

3057* 

3211* 

3365* 

3542 

3696 

3844* 

3937* 

4021* 

4126 

4210 


1063 

1175 

1349* 

1468* 

1603 

1715 

1827 

1953* 

2079* 

2267 

2421 

2567* 

2730* 

2884* 

3079 

3233 

3387 

3542* 

3696* 

3865 

3949 

4033 

4126* 

4210* 


1063* 

1175* 

1366 

1485 

1603* 

1715* 

1827* 

1971 

2097 

2267* 

2421* 

2598 

2752 

2906 

3079* 

3233* 

3387* 

3564 

3718 

3865* 

3949* 

4033* 

4138 

4222 


1079 

1191 

1366* 

1485* 

1619 

1731 

1837* 

1971* 

2097* 

2289 

2443 

2598* 

2752* 

2906* 

3101 

3255 

3409 

3564* 

3718* 

3877 

3961 

4046* 

4138* 

4222* 


1079* 

1191* 

1383 

1502 

1619* 

1731* 

1863 

1989 

2115 

2289* 

2443* 

2620 

2774 

2928 

3101* 

3255* 

3409* 

3586 

3740 

3877* 

3961* 

4066 

4150 

4234 


831 


848 


852 


873* 


1095 

1207 

1383* 

1502* 

1635 

1747 

1863* 

1989* 

2115* 

2311 

2465 

2620* 

2774* 

2928* 

3123 

3277 

3423* 

3586* 

3740* 

3889 

3973 

4066* 

4150* 

4234* 
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UOUSR 

360# 

USER 

422# 

772 

775 

777 

778 

USERF 

360# 

774 

USRASB 

32# 

412 

USRCMP 

360# 

USRCRF 

541# 

USRLFF 

540# 

USRPFU 

360# 

UUODIS 

494# 

UUOEXT 

450# 

UUORTN 

451# 

UUOSKP 

448# 

XX 

3846# 

3867 

3867* 

3868 

3870 

3903# 

3904 

3906 

3915 

3915* 

3942 

3951 

3951* 

3952 

3954 

3987# 

3988 

3990 

3999 

3999* 

4026 

4035 

4035* 

4036 

4038 

4092 

4092* 

4093 

4094 

4104 

4129 

4130 

4140 

4140* 

4141 

4176 

4176* 

4177 

4178 

4188 

4213 

4214 

4224 

k,l2f^n 

4225 

ZZ 

9344f 

944 

944* 

945 

946 

9524f 

953 

954 

954* 

955 

962 

962* 

963 

964 

964* 

971 

972 

972* 

973 

974 

1032 

1032* 

1033 

1048 

1048* 

1097 

1112 

1112* 

1113 

1128 

1176# 

1177 

1192 

1192* 

1193 

1250# 

1262 

1262* 

1263 

1264 

1271# 

1272 

1273 

1274 

1274* 

1282 

1283 

1283* 

1284 

1285 

1292# 

1293 

1294 

1295 

1295* 

1303 

1304 

1304* 

1305 

1306 

1368 

!384 

1384* 

1385 

1401 

1452# 

1453 

1469 

1469* 

1470 

1537 

1537* 

1538 

1554 

1554* 

1620 

1620* 

1621 

1622 

1636 

1669 

1670 

1684 

1684* 

1685 

1732 

1732* 

1733 

1734 

1748 

1781 

1782 

1796 

1796* 

1797 

1838# 

1864 

1864* 

1865 

1866 

1902 

1903 

1918 

1918* 

1919 

1955 

1956 

1957 

1972 

1972* 

2008# 

2009 

2010 

2011 

2026 

2062 

2062* 

2063 

2064 

2065 

2101 

2116 

2116* 

2117 

2118 

2202* 

2203 

2205 

2208 

2224 

2268 

2268* 

2269 

2271 

2274 

2318 

2334 

2334* 

2335 

2337 

2381 

2384 

2400 

2400* 

2401 

2445 

2447 

2450 

2466 

2466* 

2510* 

2511 

2513 

2516 

2532 

2568* 

2599 

2599* 

2600 

2600* 

"1 


804 


847 


SEQ  0175 


3879 

3879* 

3880 

3882 

3891 

3891* 

3892 

3894 

3903 

3916 

3918 

3927 

3927* 

3928 

3930 

3939 

3939* 

3940 

3963 

3963* 

3964 

3966 

3975 

3975* 

3976 

3978 

3987 

4000 

4002 

4011 

4011* 

4012 

4014 

4023 

4023* 

4024 

4048* 

4068 

4068* 

4069 

4070 

4080 

4080* 

4081 

4082 

4104* 

4105 

4106 

4116 
4153 

4116* 

4117 

4118 

4128 

4128* 

4142 

4152 

4152* 

4154 

4164 

4164* 

4165 

4166 

4188* 

4189 

4190 

4200 

4200* 

4201 

4202 

4212 

4212* 

4226 

4236 

4236* 

4237 

4238 

946* 

947 

948 

948* 

949 

950 

950* 

951 

952 

956 

956* 

957 

958 

958* 

959 

960 

960* 

961 

965 

966 

966* 

967 

968 

968* 

969 

970 

970* 

974* 

975 

977* 

1000 

1000* 

1001 

1016 

1016* 

1017 

1049 

1064 

1064* 

1065 

1080 

1080* 

1081 

1096 

1096* 

1128* 

1129 

1144 

1144* 

1145 

1160 

1160* 

1161 

1176 

1208 

1208* 

1209 

1224 

1224* 

1225 

1240 

1240* 

1241 

1265 

1265* 

1266 

1267 

1268 

1268* 

1269 

1270 

1271 

1275 

1276 

1277 

1277* 

1278 

1279 

1280 

1280* 

1281 

1286 

1286* 

1287 

1288 

1289 

1289* 

1290 

1291 

1292 

1296 

1297 

1298 

1298* 

1299 

1300 

1301 

1301* 

1302 

1308* 

1333 

1333* 

1334 

1350 

1350* 

1351 

1367 

1367* 

1401* 

1402 

1418 

1418* 

1419 

1435 

1435* 

1436 

1452 

1486 

1486* 

1487 

1503 

1503* 

1504 

1520 

1520* 

1521 

1555 

1571 

1571* 

1572 

1581* 

1604 

1604* 

1605 

1606 

1636* 

1637 

1638 

1652 

1652* 

1653 

1654 

1668 

1668* 

1686 

1700 

1700* 

1701 

1702 

1716 

1716* 

1717 

1718 

1748* 

1749 

1750 

1764 

1764* 

1765 

1766 

1780 

1780* 

1798 

1812 

1812* 

1813 

1814 

1828 

1828* 

1829 

1830 

1867 

1882 

1882* 

1883 

1884 

1885 

1900 

1900* 

1901 

1920 

1921 

1936 
1975 

1936* 

1937 

1938 

1939 

1954 

1954* 

1973 

1974 

1990 

1990* 

1991 

1992 

1993 

2008 

2026* 

2027 

2028 

2029 

2044 

2044* 

2045 

2046 

2047 

2080 

2080* 

2081 

2082 

2083 

2098 

2098* 

2099 

2100 

2119 

2149* 

2180 

2180* 

2181 

2181* 

2183 

2186 

2202 

2224* 

2225 

2227 

2246 

2246* 

2247 

2249 

2252 

2290 

2290* 

2291 

2293 

2296 

2312 

2312* 

2313 

2315 

2340 

2356 

2356* 

2357 

2359 

2362 

2378 

2378* 

2379 

2403 

2406 

2422 

2422* 

2423; 

2425 

2428 

2444 

2444* 

2467 

2469 

2472 

2488 

2488* 

2489 

2491 

2494 

2510 

2532* 

2533 

2535 

2538 

2554 

2554* 

2555 

2557 

2560 

2602 

2605 

2621 

2621* 

2622 

2624 

2627 

2643 

2643* 

3 


2644 

2646 
2710 

2709# 

2775 

2775* 

2825 

2841 

2888 

2891 

2952 

2954 

3042 

3058 

3105 

3108 

3169 

3171 

3234# 

3235 

3300 

3300* 

3350 

3366 

3413 

3416 

3499 

3499* 

3549 

3565 

3612 

3615 

3676 

3678 

374 1# 

3742 

3807 

3807* 

3869 

3870 

3904 

3905 

3938# 

3940 

3974 

3974* 

4002 

4010 

4037 

4038 

4091  # 

4093 

4127 

4127* 

4155 

4163 

4190 

4191 

4225 

4226 

$$420 

746* 

$$421 

747# 

$$422 

748# 

$$423 

749# 

$$424 

7500 

$$425 

75^M 

$$426 

752* 

$$427 

75Z» 

$$430 

754* 

$$431 

755* 

$$432 

756* 

$$433 

757* 

$$434 

758* 

$$435 

759* 

$$436 

760* 

$$437 

761* 

$$500 

764* 

$$501 

765* 

$$502 

766* 

$$503 

767* 

$$BEGI 

7Z2M 

$$DTE0 

792 

828* 

$$DTE2 

793 

841* 

2649 

2712 

2776 

2841* 

2907 

2957 

3058* 

3124 

3174 

3237 

3301 

3366* 

3424* 

3500 

3565* 

3631 

3681 

3744 

3808 

3878 

3906 

3941 

3976 

4010* 

4047* 

4094 

4129 

4163* 

4199 

4227 


1665 

1715 

J778 

2842 

2907* 

2973 

3059 

3124* 

3190 

3240 

3303 

3367 

3455 

3502 

3566 

3631* 

3697 

3747 

3810 

3878* 

3914 

3942 

3977 

4012 

4067 

4095 

4130 

4165 

4199* 

4235 


2665* 
2731 
2781 
2844 
2908 
7973* 
1061 
i125 
3190* 
3256 
3306 
3369 
3455* 
3505 
3568 
3632 
3697* 
3763 
3813 
3880 
3914* 
3950 
3978 
4013 
4067* 
4103 
4131 
4166 
4201 
4235* 


2666 

2731* 

2797 

2847 

2910 

2974 

3064 

3127 

3191 

3256* 

3322 

3372 

3456 

3521 

3571 

3634 

3698 

3763* 

3829 

3881 

3916 

3950* 

3986 

4014 

4069 

4103* 

4139 

4167 

4202 

4237 


10 
!193 
J257 
3322* 
3388 
3456* 
3521* 
3587 
3637 
3700 
3764 
3829* 
3882 
3917 
3952 
3986* 
4022 
4070 
4105 
4139* 
4175 
4203 
4238 


2671 

2734 

2798 

2863* 

1929 

!979 

1080* 

1146 

3196 

3259 

3323 

3388* 

3458 

3522 

3587* 

3653 

3703 

3766 

3830 

3890 

3918 

3953 

3988 

4022* 

4071 

4106 

4141 

4175* 

4211 

4239 


m 

2800 
2864 
2929* 
3005* 
3081 
3146* 
3212 
3262 
3325 
3389 
3461 
3524 
3588 
3653* 
3719 
3769 
3832 
3890* 
3926 
3954 
3989 
4024 
4079 
4107 
4142 
4177 
4211* 


M' 

l^ff* 

2690 
2754 

2803 

2819 

2819* 

2866 
2930 

2869 

2885 

2932 

2935 

3036* 

3037 

3083 
3147 

3086 

3149 

315^ 

3213 

3215 

3278 

3278* 

3279 

3328 

3344 

3344* 

3391 

3394 

3410 

3477 

3477* 

3478 

3527 

3543 

3543* 

3590 

3593 

3609 

3654 

3656 

3659 

3719* 

3720 

3722 

3785 

3785* 

3786 

3835 

3845* 

3866 

3892 

3893 

3894 

3926* 

3928 

3929 

3962 

3962* 

3964 

3990 

3998 

3998* 

4025 

4026 

4034 

4079* 

4081 

4082 

4115 

4115* 

4117 

4143 

4151 

4151* 

4178 

4179 

4187 

4213 

4214 

4215 

2693 

2756 

2820 

2885* 

2951 

3037* 

3102* 

3168 

3218 

3281 

3345 

3410* 

3480 

3544 

3609* 

3675 

3725 

3788 

3866* 

3902 

3930 

3965 

4000 

4034* 

4083 

4118 

4153 

4187* 

4223 


2709 

2759 

2822 

2886 

2951* 

3039 

3103 

3168* 

3234 

3284 

3347 

3411 

3483 

3546 

3610 

3675* 

3741 

3791 

3868 

3902* 

3938 

3966 

4001 

4036 

4091 

4119 

4154 

4189 

4223* 


SEQ  0176 


SSLOC 

729# 

768 

$$nuuo 

$$OUTE 

6A6# 
652# 

SSSTAR 

732 

733    7720 

S$TAX1 

66A# 

$$TAX2 

665« 
658# 
635# 

$$TOGG 

SSUUO 

SACCO 

A73# 

SBEGEN 

741# 

SBEND1 

4A3# 

SBEND2 

444# 

SCHRIN 

534# 

SCRLF 

536# 

SDDT 

71 0# 

SDEVCH 

360/r 

SDSKUP 

41 3# 

SDTCHR 

ilin 

SDTCI 

716* 

SDTCLK 

71 5# 

790 

SOTCMD 

71 9# 

826    839 

SDTF11 

71 8# 

SDTFLG 

71 4# 

789    827    829    840    84^ 

$DTnTD 

721M 

SDTHTI 

724* 

SDTOPR 

721  # 

791 

$DTSEQ 

7200 

SDTSUR 

7260 

SDTT11 

71 7# 

S0VCH1 

360# 

SDVOFF 

530* 

SEMODE 

411# 

SFFF 

538# 

SIBUF 

586# 

SINEXT 

5884f 

SINNM 

587* 

SITRHL 

454# 

$ITRX1 

455# 

SLPAPE 

6346 

yWAP 

414# 

$nODVL 

409# 

snoDvu 

4104f 

SOBUF 

5770 

SONETM 

437* 

SOUTEX 

5794f 

SOUTNM 

5784f 

SPAPER 

360 

SPARER 

461# 

SPNAME 

407# 

SPSHER 

465# 

SPVER 

408# 

SRSRTX 

457# 

SRSRTY 

458# 

SEO  0177 


SSPAG1 

t,77n 

SSPB1 

798 

804# 

SSPBEN 

7A1 

802# 

SSPBEX 

805 

81 3# 

SSPBKL 

8U 

820# 

SSPBUS 

807# 

SSPEC 

738 

797# 

SSPKLD 

821 

835# 

SSTART 

37A# 

SSTD 

709# 

736# 

SSTKIL 

781  # 

SSTKL 

789# 

SSTL 

711# 

$STM 

71 2# 

738# 

SSVAPR 

475# 

SSVPAG 

476# 

$S  PI 

i,7(,0 

$SV  JPC 

480# 

SSVUUO 

479# 

STABF 

537# 

STTCHR 

533# 

STUCNT 

529# 

STYPN8 

535# 

sunoDE 

41 2# 

SUORTX 

452# 

SUSRHL 

456# 

SUUOER 

453# 

494 

$VTF 

539# 

XACTFL 

486# 

XACTUL 

487# 

XCOREC 

485# 

XCORFL 

484# 

XDISCR 

4884f 

ZERHH 

627# 

XERHI2 

628f 

XERHI3 

6294f 

.JB41 

360# 

.JBAPR 

360# 

.J6CN1 

360# 

.J6DDT 

360# 

.JBFF 

360# 

.JBOPC 

3604r 

.JBREL 

360# 

.JBREN 

360# 

.JBSA 

360# 

.JBSY« 

360# 

.JBTPC 

3604f 

.JBUSY 

3604r 

.JBUUO 

360# 

.JBVER 

360# 

SEQ  0178 


CFLUSH 

CINVAL 

CLOKOP 

CyRTBI 

DROPDV 

ENDUUO 

EOPUUO 

ERLOOP 

ERLP1 

ERLP2 

ERRHLT 

ERROR 

ERR0R1 

ERUUO 

EXIT 

FATAL 

FRD36 

FRD8 

FREAD 

FSELEC 

GET 

GO 

HALT 


JEN 
IRSTF 
.MPADR 
NAPCNK 
MAPWEW 
«APPNT 
HAPSE  T 


278# 
2770 
272# 
279# 
239# 
285# 

331  # 
332# 
173# 
339# 
350# 
329# 
810 
172# 
31 4# 
31 5# 
31 3# 
31 2# 
156# 
153# 
158# 
1035 
1336 
1574 
1816 
2085 
2408 
2739 
3066 
3374 
3705 
3956 
4145 
4308 
4491 
4700 
4956 
5169 
5291 
5426 
5634 
5802 
5978 
6239 
160# 
159# 
295# 
296# 
292# 
298# 
297# 


SEO  0179 


442 
444 


463 
1051 
1353 
1608 
1832 
2103 
2430 
2761 
3088 
3396 
V27 
<%S 
4157 
4329 
4505 
4^14 
4970 
5182 
5296 
5443 
5647 
5814 
5994 
6253 


746 
1067 
1370 
1624 
1869 
2121 
2452 
2783 
3110 
3418 
3749 
3980 
4169 
4352 
4520 
4732 
4985 
5196 
5312 
5465 
5659 
5827 
6011 
6266 


748 
1083 
1387 
1640 
1887 
2143 
2474 
2805 
3132 
3463 
3771 
3992 
4181 
4356 
4533 
4747 
5005 
5211 
5325 
5482 
5672 
5842 
6025 
6279 


749 
1099 
1404 
1656 
1905 
2188 
2496 
2827 
3154 
3485 
3793 
4004 
4193 
4369 
4547 
4765 
5024 
5215 
5337 
5504 
5718 
5846 
6040 
6292 


753 
1115 
1421 
1672 
1923 
2210 
2518 
2849 
3176 
3507 
3815 
4016 
4205 
4373 
4561 
4786 
5044 
5220 
5350 
5519 
5732 
5859 
6053 
6306 


767 
1131 

844 

891 

90^ 

916 
1195 

929 

1003 

1019 

1147 

1163 

11?^ 

1211 

1227 

1243 

1438 

1455 

1472 

1489 

1506 

1523 

1540 

1557 

1688 

1704 

1720 

1736 

1752 

1768 

1784 

1800 

1941 

1959 

1977 

1995 

2013 

2031 

2049 

2067 

2232 

2254 

2276 

2298 

2320 

2342 

2364 

2386 

2540 

2562 

2607 

2629 

2651 

2673 

2695 

2717 
3044 

2871 

3220 

2915 

2937 

2959 

2981 

2999 

3198 

3242 

3264 

3286 

3308 

3330 

3352 

3529 

3551 

3573 

3595 

3617 

3639 

m 

3683 

3837 

3872 

3884 
4073 

nil 

4258 

3908 

3920 

3944 

4028 

4040 

4097 

4109 

4121 

4133 

4217 
4384 

4229 

4241 

4271 

4285 

4289 

4304 

4404 

4419 

4435 

4448 

4462 

4476 

4576 

4590 

4605 

4620 

4635 

4652 

4670 

4687 

4807 

4842 

4860 

4876 

4898 

4919 

4937 

5063 
5225 

5082 

5093 

5105 

5121 

5134 

5146 

5158 

5368 

5254 

5263 

5268 

5282 

5286 

5364 
5532 

5373 

5378 

5391 

5395 

5400 

5405 

5544 

5555 

5568 

5581 

5592 

5605 

5621 

5736 

5741 

5746 

5759 

5763 

5768 

5773 

5789 

5872 

5886 

5898 

5913 

5926 

5940 

5952 

5966 

6063 

6081 
6333 

6098 

6114 

6132 

6149 

6164 

6179 

6319 

r" 


NEMSEG 

29A# 

r^P^ZRO 

29}# 

NODr^CP 

305# 

WODPCU 

30A« 

MTROP 

273# 

NANE 

7# 

PBELL 

itfJ 

PCRL 

PCRL2 

2A6# 

PCRL2F 

2A7# 

PCRLF 

243# 

PF ORCE 

250# 

PGHINT 

]t^ 

PJRST 

P«SG 

252# 

PMSGF 

255# 

PNT1 

208# 

PNT11 

222# 

PNT11F 

223# 

PNT1F 

209# 

PNT2 

21 0# 

PNT2F 

21U 

PNT5 

21 2# 

PNT3F 

21 3# 

PNTA 

2U# 

PNTAF 

21 5# 

PNT5 

21 6# 

PNT5F 

21 7# 

PNT6 

21  e# 

PNT6F 

21 9# 

PNT7 

220# 

PNT7F 

221# 

PNTA 

19A# 

PNTADF 

225# 

PNTADR 

22^0 

PNTAF 

195# 

PNTAL 

196# 

PNTALF 

197# 

PNTCHF 

207# 

PNTCMR 

206if 

PNTCI 

20A# 

PNTCIF 

2050 

PNTCy 

2A0# 

PNTCWF 

2A14f 

PNTDCF 

233# 

PNTDEC 

232# 

PNTDS 

23A# 

PNTDSF 

235# 

PNTHW 

228# 

PNTHWF 

229# 

PHimn 

31 9# 

PMT«SF 

20U 

PNTHS6 

i 

2000 

SEQ  0180 


10 


PNTNM 

236# 

— 

PNTOCF 

231  # 

. 

PNTOCS 

230# 

PNTOCT 

226# 

PNTOTF 

227# 

PNTSIX 

237# 

PNTSXF 

238« 

PSIXL 

198« 

PSIXLF 

199# 

PSIXW 

202# 

PSIXMF 

203# 

PSP 

2AA# 

PSPF 

2A5# 

PUT 

155# 

REPTUO 

333# 

RTN 

S 

SFLAG 

15A# 
8A# 
78# 

450 

4758 

4778 

4799 

4818 

4835 

4853 

4868 

4888 

4909 

4997 

5016 

5036 

507A 

5417 

5435 

5452 

5457 

5474 

5491 

5496 

SIXBTZ 

26U 

STOP 

720 

890 

903 

915 

928 

1002 

1018 

1034 

1050 

1066 

1082 
1386 

1098 

1114 

11A6 

1162 

1178 

1194 

1210 

1226 

1242 

1335 

1352 

1369 

1403 

1420 

U5A 

1471 

1488 

1505 

1522 

1539 

1556 

1573 

1607 

1623 
1868 

1639 

1655 

1671 

1703 

1719 

1735 

1751 

1767 

1783 

1799 

1815 

1831 

1886 

1904 

1922 

1958 

1976 

1994 

2012 

i§l? 

2048 

M 

2084 

2102 

2120 

2142 

2187 

2209 

2253 

2275 

2297 

2319 

2363 

2407 

2429 

2451 

2473 

2495 

2517 

2561 

2606 

2628 

2650 

2672 

2694 

27U 

2738 

2760 

2782 

2804 

im 

l^l 

2892 

2914 

2936 

2958 

2980 

2998 

3043 

33^3 

3^95 

3109 

3131 

3153 

3175 

3219 

3241 

3263 

3285 

3307 

3329 

3351 

:;4i7 

3462 

3484 

3506 

3550 

3572 

3594 

3616 

3638 

\^^ 

3682 

3704 

3726 

:748 

3770 

3792 

3814 

3871 

3883 

3895 

3907 

3919 

3943 

3955 

3967 

:979 

3991 

4003 

4015 

4039 

4072 

4084 

4096 

4108 

4120 

4132 

4144 

4156 

4168 

4180 

4192 

4204 

4228 

4240 

4257 

4270 

4284 

4288 

4303 

4307 

4328 

4351 

4355 

4368 

4372 

4403 

'•418 

4434 

4447 

4461 

4475 

4490 

4504 

4519 

4532 

4546 

4560 

4575 

4604 

4619 

4634 

4651 

4669 

4686 

4699 

4713 

4731 

4746 

4764 

4785 

4806 

4841 

4859 

4875 

4897 

4918 

4936 

4954 

4969 

4984 

5004 

5023 

5043 

5062 

5092 

5104 

5120 

5133 

5145 

5157 

5168 

5181 

5195 

5210 

5214 

5219 

5224 

5253 

5257 

5262 

5267 

5281 

5285 

5290 

5295 

5311 

5324 

5336 

5349 

5363 

5372 

5377 

5390 

5394 

5399 

5404 

5425 

5442 

5464 

5481 

m 

5518 

5531 

5554 

5567 

5580 

5591 

5604 

5620 

5633 

5646 

5658 

5671 

5731 

5735 

5745 

5758 

5762 

5767 

5772 

5788 

5801 

5813 

5826 

5841 

5845 

5858 

5871 

5897 

5912 

5925 

5939 

5951 

5965 

5977 

5993 

6010 

6024 

6039 

6052 

6062 

6097 

6113 

6131 

6148 

6163 

6178 

6238 

6252 

6265 

6278 

6291 

6305 

6318 

SWITCH 

267# 

TTALTM 

188# 

TTICHR 

18U 

TTICLR 

19U 

TTICNV 

186# 

TTIDEC 

1854f 

TTiNO 

183* 

TTIOCT 

184* 

TTIYES 

182# 

TTLOOk 

1874f 

SEO  0181 


5055 


1130 
1437 
1687 
1940 
2231 
2539 
2870 
3197 
3528 
3836 
4027 

4216 
4387 
4589 
4824 
5081 
5239 
5367 
5543 
5740 
5885 
6080 
6332 


TTSIXB 
TTYINP 


189# 
190# 


SEO  0182 


